َEOSDISK_MGRx2€!يE"f1X‏!ب€حXبعQب!€àي°>2`‎ش!گسح؛ü!بحXب8:€Gأ:€Gأçü:€صحہüل(أzب2€ح|ب8:€حأüآzب§ة7ة:€ًےحزü‏
 §ة7ةث{(ث»/O:€Wف~ث 
فwف~&o{·} éo|·(فuفuف#‎#ٌء|· فلءz2€لة:€‏(ُGف~‎فwف#ٌ ïظإص!€ح‰ح‍ر!ëءظةWRITTEN BY KEVIN GIBSON 8Dھ‚؛D8(D‚‚‚‏"w>>>**>* 08<> ‏9ے=~$$$|@  @|ّˆ¸ˆ¸ˆّ0pًp0ˆP0l’’’l00ü00  ü ~|ü<<$$8ئئ8$$8    <8     <8    à€€€€€ًًًًًً€€€€€ًً      PPPPPّPّPP x p(ً ہب @ک@  @¨گh    @€€€@    ¨p¨p¨   ّ    @ّFIRST DIR  پUھے BOOT       ˆDIRECTORY  بDISK_MGRFTبEOSKS LEFTت_alphabetHT‰LIGHTHOUSEA0lightscoreA3AMOTHERLODEA5ümotheroneA;çmotherIIATTUscoreALEFTn8ITAKS LEFTpٍDNStextHTH}vsavedALEFT€.LIGHTGAMEAپ{EvilThreeA‚EvilText3H‰ôhplotmakerAژ	ٌReNumberAT—pHHHH0HHH00HHp@@8HH8Xh@@@8@0p  p   0HHHX(ˆˆPP ˆ¨¨¨ذطP PطHHX(x0@x`@ @`      ہ0 0ہ@¨¨P¨P¨P¨pˆک¨بp `   ppˆp€ّّ0ˆp0Pگّّ€ًˆpx€ًˆˆpّ @@pˆpˆˆppˆˆxً`گگًگگàگàگگàp€€€€pàگگگگàً€à€€ًً€à€€€`گ€°گpگگگًگگ€€€€€€گ`€گ ہ گ€€€€€ًˆط¨¨ˆˆگذذ°گگ`گگگگ`àگگà€€`گگگ°pàگگà گp€`àّ     گگگگگ`ˆˆˆPP ˆˆ¨¨طˆˆP  PˆˆˆP   ً @€ً€€  @@€PPّPّPPڈx2¤°!(fي°1ےزحvح<حNح­	حوأ+أ¶ح!حط!M>†حأû'ة!Kxإح‍ءُة                ADAM  DISK  MANAGER        ONE MOMENT - GETTING FILE DIRECTORY  إه=ظGظO‡‡پO!€	N#^#V#صه! ظxظ· !ّ(·(‏ 0صyحUرôy‎ظxظ· ‎	ه!—‌w#™‌6ٌي°رإص!—‌ح‰ر!ëءىل^#Vءإص!	(¯حUرءإ!	ëح‰ء!	هظر(ظلحJءةفه‎ههح‍ل~‏(‏(ح³حôحI#éظصظل·يB0حIï‎لفلةُK	ô0S	ُX[	ô€c	ُ¨k	ôذs	!€6#€ï6ي°ف!€ةهُو‏08‏:8‏A8‏[8!?	ي±>‘ئ$ئذئةO`i)))	ڈ	Fٌو€°#ه‎للةه&فهُ_‎~  @€pˆک¨بˆp `    ppˆ0@€ّّ0ˆp0Pگّّ€ًˆp8@€ًˆˆpّ @@@pˆˆpˆˆppˆˆxà     @ @€@ ّّ@  @pˆ   pˆ¨¸°€x Pˆˆّˆˆًˆˆًˆˆًpˆ€€€ˆpًˆˆˆˆˆًّ€€ً€€ّّ€€ً€€€pˆ€€کˆxˆˆˆّˆˆˆp     pˆpˆگ ہ گˆ€€€€€€ّˆط¨¨ˆˆˆˆˆب¨کˆˆpˆˆˆˆˆpًˆˆً€€€pˆˆˆ¨گhًˆˆً گˆpˆ€pˆpّ      ˆˆˆˆˆˆpˆˆˆˆˆP ˆˆˆ¨¨طˆˆˆP PˆˆˆˆP    ّ @€ّّہہہہہّ€@ ّّ Pˆّ@ `کˆکh@@PhHH08@@@8(XHH00Hp@80( p   0HH88@@PhHHH `   pHp@@HPpHH`     pذ¨¨¨ˆًshootingAT›)alphabetAT‍BLOCKS LEFTں   àpˆ   ے@¢ےے€„ٹ‘ €ےü$D„ü :/.#'-?>>****ٌQQJJن"""ڈٹٹRR'ح„!Bپ	~‏ yإح3ءy‏P8éةNإ#N#bژي°ء!bژ	"ذژة¯2Aپ2éژ2َژثك2êژح.
ح>	2ئژ2ثژ>2بژ2ةژ>E2جژ>x2تژ¯2شژ>2€:ثژG:جژگ<2عژ!âپ"حژح¨ü¯2ضژ2صژ!Bپ¯wهرPي°!Fپ>wْحH
ة?!ھ†âپيBDM~!âپ¯w#>wنپ!âپي°>2ھ†ةح±>ےحخح‚أ4حH
ةحخ:ةژحê:بژحٌ:تژأم>>>
>>>ل^#V#هëأ‍>پ>‚>ƒ
>„>…>†ل^#V#هëأح“üأ¨üحKüع{:€‏ <:€‏ 5:€‏8c:€‏8\:€‏آt:€‏آt:€‏آt:€‏ {>2z›أàكءككككüüہàًًّàہ*حژحAx‏ع&ة*حژحAx‏ع6ةهإحءإحدءل>پO‏$عCةحآ’:€=O!±	~2A‍!—‌ک‌wي°#وًwي°ف!¸!—‌ک‌6ي°#:@‍wي°ف!ّأqٌٌٌٌLً|2ں‌2ں‌ً2|ّ2—‌2—‌3—‌4—‌—‌ً§‌2 §‌3 §‌4 ????????ےےےےےے?ےےےےےےےے???????ًًّّüü‏‏0xüüüüüےےےےےےےےüےےےےےےü‏‏üüًًّّüüüüüx0        ف!‹أqڑ  ¢
ٌٌqqqqٌ’’‚‚II$$  :بژحٌح÷:€=Oإ! 	Nحzء!'	~2@‍!!ُطحUٌٍح]أ:€=.پOL 3ûپL 3û‚L 	گء` 3ْء` 3ْآ` 	ذB @$B 0$P‚@@‚@0گآ€@آ€0ذ‚@@گB 0&P‚@0گآ€0ذ‚ضp2گ‚تp2گ!nأP‎:پثOہحV‎:پ·ہ:پثOہحV‎حV‎أV‎حV‎حV‎ï:پ·ہو:پ·ہف	حV‎
ش:پ·ہحV‎ئ¯2پة>2پة>2پةهُ:z›‏(	‏(! !+|µ ûٌلةيKIxيyيKKxيy:MOيx‏ھآHيx‏UآHيXيPيhي`هيxw#{² ÷لéة^^€_حzہحzحz>!<حk>!8حk>!حk>!حk>! حkح±:b‎ثïOحz!€€	6ي°>2€2€>2€ة¯ے?!حU! >حUح;!{›>#حن>حن>حنأ½w<#ûئآنة:b‎ث·Oأz:b‎PPPPPPPPPPPPPP!!"AAپaBپ!پپAپپa!bپAپ،aپءBپلAپ"!!Aa"پA،!ء"لA" !ل! ! !ف!yأq‏.6V
^n†!¶$¾(ق*و0ِ1حr:éژو€ ف!حف!&حف!bحف!حف!&حف!Rحح÷ةإفهفهل##فVف^ح‰فلف	ءâةظGظث/ث/ث/G‡€ئ‡‡‡O!	هë!¯‌حکظxظو‏زgف!¯‌أw‏زsف!·‌أwف!؟‌‡O!س	V#^ظX!Bپ~ظ·آ¯z/ف¦فwف¦فw{/ف¦فwف¦	فw	أةzف¶فwف¶فw{ف¶فwف¶	فw	ر!¯‌أ‰ہ`€0حب*حژâپ·يRxوüAOإ}ث/ح`حءWx³_z·تGثثْs#ëلةےےےےےےےےےےےےےےےےےےےے!)زQّة>2‍ة:‍·ب=2‍ہأg!{›#إصح‰رë 	ëءîة*حژ>´ُهإحءإحدءلyئ‏$ع©¯XOٌ=آٹة!ھ†حAx‏عµة.%‍.)‍.!‍.‍G‡€ئأ›.,‍.0‍o:€=¸پO0
7‍}.4‍ث?Gث?O‡پO:éژgث@ت&ث|>ت$>پOث|>ت/>پأ›.9‍x‡G‡€ئ8‍y‡‡‡Oy€:éژgثG;‍> ثT³ ®:€=پO0
أ›!<‍‏ےآ€6رأ–Gث?ئ‡‡‡ضw>(ث@ت”>€#w. أ›M&D<ë!‍	أ‰!ص‍$ي°!ù8Hح‰ةے%
ے%ے%ےطO—&ذ(àààààààح÷‏ > ‏ >¨‏ >،‏ >©‏ >¢‏ >ھ‏ >£‏	 >«\G:z›‏(:ے€¸(>2z›ح÷:z›‏(	<2z›‏تx2ے€‏
 >.*‏ >"ئ0ح÷>€(ح¨ü>2z›أُح¨ü>2z›ٌُ‏€زـ‏عـ‏'ز§‏!زش‏+ز±‏(زش‏:تش‏[زہ‏<زش‏aزت‏_زش‏زظ‏{عظحئح½ٌ‏¹ >	‏¸ حد7ة‏‡عّ‏ڈزّثں‏کع‏ زثں‏¸ع‏؛زثں‏§ع‏¬زثں7ة·ةح¸
0û‏(·ةحط>7ة2پح 83‏(.‏	(*‏(&‏،("‏£(‏ 8‏8ُ€:پ€Gٌ¸8‡¸8حدة·ة%پ2پ?پ®پ¹پى پے*پ4پؤ پت*پدپصپعپhپoپLپ@‡PBڈ0
P€ضP‚â0
گc
ہLً
ذgہ
ًذA@`U@€`PپWcD£گA@@3üA@@3üB@@	Pپ0
!!ح!#ُحUٌٍةًPإy‡‡O‡‡‡پOxوüپ‡O!ھ†	حء>پHGأدُ>2B‍ٌإهه!fمأ&‎لءأ§ُ>2B‍ٌه!§مأ)‎ُ>2B‍ٌه!§مأ ‎ُ>2B‍ٌه!§مأ‎ُ>2B‍ٌه!§مأ‎ه!B‍ث†ث~6لآ¶ةُ:B‍ثG(ثے2B‍6إصهفه‎هُظهصإحY‎>ف!€ح>‎حZ:C‍<2C‍ءرلظٌ‎لفللرح#‎2c‎ءٌيEù0Pگّü															9			9				 `   püے							ü											9											9						ùüّü								PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPث÷OأzهوG‡‡€<‡‡‡_!5ص>حUرَصظل·يBDMظلأJ¯!{›w<#ûإص!{›ح‰رء!ëىة*حژâپ·يR}ث/پOX>PحF	)âپة—‌¯ح_‎هفلظAWظ##ح_ظ_ظ¯حxح_‎هفلظAWظ##ح_ظ_ظ>حxح_‎هفلظAWظ##ح_ظ_ظ>حx##ةح:@‍آمWx‏zعم:A‍وًظGظظ`ظ>€Wث:ث:ث:صxحFث9ث9y‡پO	{›ر^ë)))هë!—‌ح‰ل إهز7ظyظأ;ظxظهُë!—‌حک:—‌وGٌ°لحUلءثةه~ظOظ#~&oث½)))DM‎!ڈ‎	لةهëإ‎NثثثثGف~³_x·ت›ثثْs#ف#‎#ءطW·آ«ُ¯ظثzتµثكثxت¼ث×ث{تأثدثyتتثا·تو_!~#ngه!6~ظء_أïظفF‎Nٌُz£ر²ثثثثأده!êژث^لةإG:éژثWxءةحآ‚ح!أ°>2€أ.>2€حٍح±:éژُث×2éژحأٌ2éژ>! حUف!Yحqأ‎Aùqxy‘ً™ً،رًةظب  1 1€!9"Qً"94a4i0#	iˆ#	i0%	iˆ%	i0'	iˆ'	i0)	iˆ)	i0+	iˆ+	i0-	iˆ-	i0/	iˆ/	i01	iˆ1	ًًًًًًًًًّü‏ًًًًًًًً€ہہہہہہہہہہہہہہہًًًًًًًًےےّüےےےےےےےےےےےےہہہہہہہ€ےےےےےےے‏ےےےےے‏ےےے‏ے‏ےےےILE PRESS ESCAPE CANNOT READ FROM SOURCE PRESS ESCAPE CANNOT WRITE TO DESTINATION PRESS ESCAPE ONE MOMENT- COPYING FILE USE ARROW KEYS-SELECT FILE TO DELETE PRESS DELETE FILE WHEN READY DELETE FILE FINAL DELETE ONE MOMENT- GETTING DIRECTORY THIS FILE CANNOT BE EDITED-PRESS ESCAPE TO SELECT ANOTHER FILE THIS FILE IS LOCKED PRESS ESCAPE TO SELECT ANOTHER FILE DELETE FILE: ARE YOU SURE? ONE MOMENT- DELETING FILE NEW FILE- REQUIRE A FILENAME PRESS ESCAPE CANNOT ACCESS FILE REINSERT‍7ةح،)>2¯ة!Q‍F#¸ ‏ ُ7ة§ة!Q‍~#‏ ْ++~‏{0‏a8§ة7ة:ى‍حl<2ى‍ةُه*ي‍w#>w#"ي‍لٌة!مپ"ي‍!~حF#ùةُإص!{‚ثG(7?ث§(GH‎"ي‍رءٌةإ!Q‍ح¶ح;ح!0
*ي‍	>Bw!E‍~#حFùءةهE‍> ْE‍~‏(#ِ‎ث^ؤüG> !l‍:ى‍_p!”‍‎~w!¼‍‎~wلة>ةDIRECTORY FILE DIRECTORY   DRIVE X: PRESS ESCAPE/WP FOR SMARTWRITER FORMAT  FILE  OPTIONS SELECT DRIVE DRIVE X: SELECT FILE OPERATION RENAME   RUN  COPY DELETE CANNOT BOOT THIS DISK PRESS ESCAPE/WP FOR  SMARTWRITER LOAD DISK IN DRIVDOOR PRESS ESCAPE INSERT DESTINATION DATA PACK OR DISK INSERT SOURCE DATA PACK OR DISK DO YOU WANT THE ORIGINAL AND COPIED FILE ON THE SAME DATA PACK OR DISK ? DONE REINSERT A FORMATTED DATA PACK OR DISK PRESS ESCAPE   REVISION     15.0—2¯2¯2¯2¯2ة°2ج°2¯*حژ"ê¯!âپ"حژ:¤°2ّ®2ا°2ت°A‏(B‏(C‏(Dx2¦°2،°2ب°2ث°:ّ®!ژ8حہüآy)2'°!بحزüآy):'°حأüآy)!‌8سي°!©8س1ي°يC‏®—2¯2ش°2َ‍2ُ‍2ف´!ة†w#w#ْ2¯2¯<2¯ح،)ح=حد6>ےحsح،)!‚)ح©5حع8ي[î´!ص°هحP9لFد†#~ùح1حچ!>ƒحï7ح~
Jح‚
Rح†AMING FILE DRIVE X-USE ARROW KEYS TO  SELECT FILE PRESS RUN WHEN READY  RUN  FILE CANNOT RUN THIS FILE PRESS ESCAPE ONE MOMENT- LOADING PROGRAM SELECT DRIVE  DRIVE A DRIVE B DRIVE C DRIVE D PLEASE INSERT DATA PACK  OR DISK) COPY SOURCE DRIVE X DESTINATION DRIVE X SELECT FILE DEST. DRIVE SOURCE DRIVE SELECT SOURCE DRIVE FOR COPY SELECT DESTINATION DRIVE FOR COPY USE ARROW KEYS-SELECT FILE TO COPY TYPE NEW FILE NAME PRESS COPY FILE WHEN READY COPY FILE CANNOT COPY THIS Fےààً‏‏‏‏‏‏‏‏‏‏ًًًًًًًً‏‏‏‏‏‏‏‏ًًًًًًًًààààف~·توفfفnفVف^فNظفFظ=ت‌=ت±=تبأقهصإح‰ءل	ëلظظآ‌أقهصإح‰ءلëلظظآ±أقإصح‰رë	ëءظظآبأقفأqة:ٌ‍<2ٌ‍—2ى‍يKï‍أپ:ّ®!حہüآ2k‍ح‹4آحW—2ى‍2ٌ‍2ٍ‍:k‍ح‹4آ%إ:k‍ح‹4ءآ‎!Q‍‎ثFآم‏
تح89‎ثV :¯§ #:¯§(‎ث^(!‎ثN :ٍ‍<2ٍ‍‎ث^ 
حڈ:ى‍‏(|إ:َ‍§(:ô‍G:ٌ‍§(<گ:ٌ‍G!§(‎:ى‍_:ٍ‍_###¯'يR(0ْءآ(إ:ُ‍§ ح=حڑ
à#:k‍!Q‍
حزüء'أ(:ٌ‍§(:ى‍§ >2¯2¯ح،)7?ةيCï DATA PACK OR DISK PRESS ESCAPE CAN'T WRITE TO FILE REINSERT DATA PACK OR DISK PRESS ESCAPE CANNOT READ FILE REINSERT DATA PACK OR DISK PRESS ESCAPE FILE DOES NOT FIT  USE ANOTHER DATA PACK OR DISK PRESS ESCAPE       THIS FILE ALREADY EXISTS USE ANOTHER NAME PRESS ESCAPE     TO SEE NEXT PAGE PRESS DOWN ARROW     TO SEE PREVIOUS PAGE PRESS UP ARROW DISK IS WRITE PROTECTED OR NON-FORMATTED REPLACE WITH FORMATTED OR NON-PROTECTED DISK---PRESS ESCAPE DRIVE DOOR IS OPEN INSERT TAPE - CLOSE E X PUSH START FORMAT WHEN READY ALL FILES ON DISK WILL BE ERASED START FORMAT CANNOT FORMAT THIS DISK CHECK DOOR OR REPLACE DISK AND PRESS ESCAPE BAD BLOCK ON THIS DISK - DO YOU WANT TO  CONTINUE FORMATTING? DO YOU WANT THE DISK CHECKED FOR BAD BLOCKS ?  YES   NO SELECT DISK TYPE SYSTEM DISK DATA DISK ONE MOMENT- FORMATTING DISK DRIVE X-USE ARROW KEYS TO  SELECT FILE-TYPE IN NEW NAME PRESS RENAME FILE WHEN READY RENAME FILE CANNOT RENAME THIS FILE PRESS ESCAPE ONE MOMENT- REN
cح عس‏ت¨)‏’تّ.‏—تـ2‏„تµ)‏…ت1)‏† ح".أ†(حدزح–!s>‚حï7حz
•ح~
‌ح‚
¤ح†
«ح ع†(‏ƒت›,‏„ت”-‏…تّ.‏†تـ2‏’تّ.‏—تـ2حد×!³ح*8أسSPACE REMAINING:         KBYTES:k‍حأüةح–
ه'>ZحO8أé(ح–ح.
ح1:،°‏D(
>C2،°>2ّ®!î>„حï7ح†
Dح‚
cح ع†(‏†ت*‏…(حدىح–>2ش°ح".—2ش°أد)ح–—2ز°ح‍
 ح‚
) ح†
7 ح ع†(‏…ت6*‏†(حدى>2ز°ح–>2س°ح‍
غح‚
 ح†
 ح ع†(‏…تa*‏†(
حدى>2س°ح–ح=:،°‏AتŒ,‏BتŒ,:ّ®ح~üآŒ,:ّ®حTü‎~و‏زŒ,ح‍
C خْ!ِ‍>w:ّ®حِüآŒ,:س°§تd+ح÷*زd+:ّ®حگüح‍
ڑح‚
 ح†
 ح ع†(‏…تم*‏†تé*حدëح–أd+ح–أد)ےےےےغ°€!ï*إ#ح†
أ#'يC‏®ح4ح ع†(‏†(
ح”38صحدذح,3أ†(ح¢
~$ح†
ر#ح–ح 8U‏†(حدïح–:‎®حlٌ¯~ح؟6يSï¯:‎®O!l‍	~ث؟*ï¯w#>wح¢
ڑ$!ٌ¯:ّ®حلüُح²
ٌ*¯بحدح¢
م$حF8ة‏£تھ3‏،ت¶3‏ تج3‏¢تٌ3§ة:‎®§بثGب=أ!4!ى‍~§بO:‎®¹ب7?ثGہ<أ!4:‎®§ :ٌ‍§بح5>C‏(==;:ى‍ثG ==0!ى‍~§بO:‎®¹(
8ثG ><<¹8(
ثG ":‎®§(ثG >2‎®حs7ة>ح5¯2‎®حs7ة:¯§تe4:ى‍ُحè6:ى‍§ ٌ>ح5¯2‎®حs7ة>2غ´ٌح•47ة:¯§ب>ح5¯2‎®حs*¯7ةإ:k‍ح‹4آءَة!Q‍حزüةيK‏®y‏ 	x‏'(‏8يC‏®ح4ة:‎®‏ :غ´§ 9ح¦
&>حO8!§ %:ٌ‍§ :ف´§ !:غ´§ ح¦
E&>حO8>2غ´7ة>2غ´7?ة>2غ‍
ï حT68’:ّ®2ت°حM-8$:ّ®ٌ¯!‎¯حقü(:ّ®و(:ّ®حگü!ب ح*8أ›,!م%ح*8أ›,أ†(!b >„حï7ة:ّ®‎¯!Q‍حےü(7!‎¯~‏(#ّ+~G>w##xw:ّ®‎¯!Q‍حجü(!‎¯~‏(#ّ##~++w7?ة7ةح–ح~5ح،)—2¯<2¯حد6ح.ح†
K!ح‚
c0ح³40ح.ح†
K!ح‚
c'يC‏®ح4ح ع†(‏†تٍ-‏… ج".¬ح”38بحدأُح–ٌح‍
|!ح،)ح\6:ّ®!ٌ¯حہüتس!X!ح*8أ”-!!>„حï7ة!ڑ!"	¯ح–ح=ح‰7:ش°§آu.>ح~ü 4>حTü‎~ُو‏0>ƒ2ù®حz
©!ٌث?ث?ث?ث?و‏0>„2ْ®ح~
²!>ح~ü >حTü‎~و‏0>…2û®ح‚
»!>ح~ü >حTü‎~و‏0>†2ü®ح†
ؤ!x§آ×.ح–
ح!>ZحO8ع>7ح–
>ZحO8ع>7أ1.*	¯>‚حح عï.حک78	حدًلأ†(ح–7ةح–ح،)ٌةحWٌُ:¯§ 'ٌ0>—2¯:ى‍§(>2‎®حsح4>ےحخأ1ٌ!®'ح*8أد6:¯§ 	ح.
!ھ†حm8>2¯ةح!أ°:éژثW ح!أ°أ‚ح.
!ھ†حm8ة:ضژG:صژO:éژثW yئOأ4>ï2ù®2ْ®2û®2ü®ةG:ù®¸(:ْ®¸(:û®¸(:ü®¸(7?ة>&A>&B
>&C>&Do:ة°§ }2ت°|2ث°:ج°§ }2ّ®2ا°|2،°2ب°7ةُح8)°xهي°ل+N:،°ح8ٌحة!)°ه	wلةx> )°üة!!%!`%هح=ح‍
ل—2¯>„ححدحF8أ†(ح طحد÷G:C‍€Gإح¸
ءزb8‏تk8:C‍¸ ي7?ة7ة—طw#üة$$$$$$$$$$$DISK_MGREOSBOOTFIRST DIRيEيCfأçüيE!?سُw#:ّ®wيEيCf!زٌحزü(‏
آ0ü!?س~حأü!@سFَأ!"î´:ّ®!حہüآ2k‍ح‹4آ:k‍ح‹4آ:ت°2ّ®حM-0حs0أّ.:ا°2ّ®ي[â´JS¯G_ثثثثثث:ت°!‎¯حةü(أL0:ت°!‎¯حüü(ٌأ:0يSê´ح2يKà´x±((ح‍00ح‘2ح=حڑ
d#حإ1ح‍00حw2ح=حڑ
d#ح2ذ:ت°!‎¯حüü(ٌأ:0*±سي[ن´s#r#ي[و´s#r*±س@ي°:ت°‎¯!@حدü ٍ:ت°حأüة!"è´·*à´يR8"è´يSà´!@>ُ:ا°ي[ق´حَü(ٌ= ىأ.0ٌيKà´x±(يCà´يSق´ذيSق´*è´"à´ة!"ى´·*â´يR8"ى´يSâ´!@>ُ:ت°ي[ê´حِü(ٌ= ىأ:0ٌيKâ´x±(يCâ´يSê´ذيSê´*ى´"â´ةح=ح¢
'ح†
¨'ح ‏†(حدôةح=ح¢
:'ح†
¨'ح ‏†(حدôةح=ح‍
\'ح‚
 ح†
 ح ع†(‏†(	‏…(حدي>2ـ´ة>2ـ´ةح–ح،)—2¯2¯حد6ح¢
#ح†
أ#0ح³40
ح¢
صي°رء!ëي إY!غ°:ّ®إُصحِü(رٌءء7ة!ِ‍—w#x± ّرٌء!ِ‍حَü ن!ِ‍غ°¾آ,+#x±آQ+ء±§ة:ّ® !“8ح½üآŒ,:ّ®!ژ8حہüآŒ,2'°ُ:ز°§(!‌8!بٌحصüآŒ,:'°حأüآŒ,:ز°§آ†(>ب2ر°!پ8"ٌ¯!<"إ°!"أ°حو+>ت2ر°!ٹ8"ٌ¯!_"إ°!à"أ°حو+أ†(:ّ®*ٌ¯ي[إ°حةü(أ‹,:ّ®*ٌ¯حہü(أ‹,2'°*أ°يKإ°حصü(أ‹,:'°حأü(أ‹,:ّ®*ٌ¯حہüآ‹,يKإ°*أ°إه:'°!	°حزüلء ;:	°¾ 5#x± â:'°حأü '!¨°ي[ٌ¯:ّ®حجüآ‹,:ر°2´°!¨°ي[ٌ¯:ّ®حدüآ‹,ةل:ّ®حگü!Sح*8أد)ح–ح،)يC‏®—2¯2¯حد6حo5حD-ح†
؛ ح‚
c0ح³40حD-ح‚
cح†
؛ ح ع†(‏†تْ,‏… ج".°ح”38سحأ58خحدةُح–ٌح´2ف´7ةُ>2َ‍2ُ‍2ف´ح=حڑ
à#:k‍حأü:ّ®!حہü2k‍حئü:k‍حأüح 
حùٌ=2ٌ‍2ô‍(ُحîٌ=2ô‍(َحW:ٌ‍<§(>ح7ح•4>2غ´2َ‍ةح•4!ھ†حm8ح¤5ح1—2!°2‎®!ة†"#°"%°!ٌ¯ح›5!‎¯ح›5ة> w#üة!¶5ھ†—~#÷ةNEW FILENAME:‏[0‏A8أü5‏{0‏a8أü5‏:0‏08أü5‏  G:!°§x(>_أü5‏ت'6§ةG:!°‏
ب*%°p##"%°<2!°يK‏®إيC‏®ح4ءyضOح37ةح~:!°§ب=2!°يK‏®يC‏®إح4*%°++6"%°ءyضOح37ةح\6طحn6ة:‎®حlٌ¯ح؟6ح‚6ط§ة*#°~§تµ6‎¯ح؟6ح¤6ط§ة!l‍:‎®OيCد°	~ث؟ح*8ح،)7ة2ي¯:ي¯يSï¯>ح،)§ة!¶$ف!C$ط~##~‏ (§(ٌةح=ح–
à#ح.
ح،)ےح4حù>2¯ح 
حçُ:¯§ :ى‍§ يC‏®—2¯2¯ح=حد6>ےحsحآ/ح†
"ح~
,"ح‚
:"ح عF0‏†(>‏„تB/‏…( حدè>2ج°ح–!h"ح%.—2ج°:ت°2ّ®أّ.>2ة°ح–!I"ح%.—2ة°أّ.:ا°2ّ®ح–ح،)—2¯2¯ح=حد6حo5ح¢
چ"ح†
ل"0ح³40
ح¢
چ"ح†
ل"ح عّ.‏†(;ح”38àحأ58غحدضح8!َ!)°xهي°ل+هN:ث°ح8ل+N:ب°ح8>ƒحة:ا°G:ت°¸(>2ـ´ح«2ح–ح=حڑ
d#ح،):ـ´§ حM-ز"0حs0أّ.حT6عr/ح³0أ†(!#ح*8ح=أّ.!9#ح*8ح=أّ.ح=أ†(ُ:ت°و(:ت°حگüٌ‏(‏(
‏(‏(!œ%أ*8!م%أ*8!م$أ*8:ت°و‏ !×&أ*8ح=ح¦
o&—2¯حF8ة:ت°G:ا°¸ :ـ´§(7ة7?ة:ا°!ٌ¯حüü(ٌأ.0يSق´*±س^#VيSà´يSâ´يSن´#^#VيSو´يKà´x±تؤ1حإ1ح‍00حw2ح=حڑ
d#%إ:k‍ح‹4ءآ‎!Q‍‎ثF 0‏
ت‎ثVإؤ79ءغ:k‍!Q‍
حزü'ث‎~G‎~O*î´	"î´ةح79ح،)7?ة"ً´ë>2ٍ´|2َ´·ٍh9ë!·يR·ثثث{ض
?0_ٌثث{ئ0ح—9|µ ق:َ´·ٍ–9>-ح—9ةهُ*ً´T]يSً´:ٍ´·(Oي¸:ٍ´<2ٍ´wëٌwلة°wةفه‎ل‎‎هرةإG:/üOيAxءة77?هفهُ8¯2ط‎ٌ"‏ف*‎‎bkحï صإي[‏فn!فf"ي°ءر¯2ط‎فللةإصهفه"‏ف*‎‎bkحï &*‏ف^!فV"ي°ف~*ے‎ف^فVفNفFحوٌ ¯فللرءة‎هفههصإف*‎‎ف6فw"‏x± 
{² فثî ZQHث9ثثث9ثثy·آ’é{²ت’éيS‏يS‏يSظ‎¯2غ‎ف6فwفwفwف6فwفwفwي[ے‎فs!فr"يS‏!"
‏ف~فn!فf"ف^فVفNفFح{ٌآ‰é‎*ے‎‎~وفwف6ف6ف6 ح5ًآ‰é&فn!فf"فu!فt"فn!فf"ه‎ل‎~OثGآèفثn 7ثQ($‎n‎fي[‏·يR8$!غ‎ثF ثئف^فVيSظ‎ف^!فV"*‏حTًت–éں*‏فu!فt"ف4ف~ ف¾ع‎çف~ف¾ع‎çف~ف¾ع‎çف~ف¾ع‎çف~فn!فf"ف^فVفNفFح{ٌآ‰é'أ\ç!غ‎إëحéلiءëyKPG·(ي£ ْ ÷ةإëحçلiءëyKPG·(ي¢ ْ ÷ةY:)üOيYxِ€يyx·{ 2a‎ةہ2b‎ة:)üOيx2c‎ةُحéلليaz³ ùةOف!d‎ف	ف	فuفt:a‎ثO('y‏(‏(}´ ($}´ ے‎!؟à‎	‎	‎~‎Fث<ث= ùMح ‎ة
حصàأ‎حصàأ‎‎هO‏ :a‎و(y‏(ë))·()ëم))()مyd‎ه&o)	~#foëلءةهثz(&ے&j)))))ث{(ےëلةهإث*ثْء!€ےثz لذة&لط€ةي[j‎!€)))إم)))مءف!ف91n‏فه:n‎ُ:üإح‎ءصي[رح‎ٌح‎لùةG:'üOيAx2n‎ة:n‎ُ:üح‎!)ü:Cw#:Gw#:Kw#:Qw#:Ww#:hw#:ژwٌح‎ةُه*d‎حéللٌG~‡‡#هo&xي£ ْGلêة¯آ>@يK)üيi´يyHة	
‎ههفهصُإف*‎‎#ف‎*ے‎‎ف~·(#ف‎x‏8êءٌرفلل‎ل>·ة‎"‏ٌفwٌفwإهرفهلف~حوآّêحظًآّêف~ف†فwف~فژفwف~خفwف~خفw ف~ضفwف~قفwف~قفwف~ قفw ي[‏فs!فr"ف~فwف~فwف~فwف~فwف~و‏('¯ف¾ 
<ف¾ فث‏ف~*‏ف^فVفNفFح{ٌ ¯ءxف6ءرفلل‎لةفههصإ·(P‏0LGف*‎‎*ے‎#فُف~·(3و@(%ف"s‎ف~ف^فVفNفFحوٌ  ف~فهلي[s‎حQوف6ءرلفلةءرلفل>	·ةءرلفل·ةفهصإه·تى‏زىGف*‎‎*ے‎#فُف~·(tو@(ف~ف^فVفNفFحوٌ eفث¶فث¾ف~فwف~فwف~فwف~فwفu!فt"ف~و‏ ف6ف6ف6ف6ف~ف^فVفNفFح{ٌ حٍنt>ںگ€ف*r‏حVن>؟° ف*t‏حVن>كذہف*v‏حVن>ےًف*p‏ف^ حو%ح(مف~و!x‏¾(wàح(مف^ أوح(مأ9محƒم>ف¾بححن
فًفه!وم"p‏"r‏"t‏"v‏حƒمف~·(<(ف~وہ_!p‏فهرs#r
فغفلةفuفtو?Gف~وہ°فwح—م‏ےب‏> éح÷âحاâہف~ُحٍنءف~¸بˆف~و?ُف6ےفnفf~Gثo(إو#فuفtف6ًفwف6ف6أىهثg(ث_(ءأçم>ےُأىهو<‏ '‎ل‎هإ#^فs#Vفr#‎هٌص‎لXهص‎é‎ىهص‎éإxو·  ####فuفt+حوي¸ف6ف6b‏ فuفt+حوي¸ف6D‏ &ٌُوہ +فuفt+	حوي¸¯ي¸فuفt+فه‎ل‎‎هري¸فهلٌء‏ےبWو?‏ >zوہثFتڑé!غ‎ثF(dث†فnفfي[ظ‎·يR*‏فu!فt"($فsفrف~ح{ٌآ‰éفn!فf"فu!فt"ه‎ل‎ثV(ç‎n‎fي[‏ه·يRل8ض"‏ح؟éآ‰éأqéف~ف¾ 8ف~ف¾8ف~ف¾8ف~ف¾8x‏ت‍é‎n‎fفثn(|µت‍é"‏فث®ي[‏·يRع‍é"‏!‏‎~†#2‏‎~ژ#2‏‎~ژ#2‏‎~ژ#2‏إح؟éءآ‰éفn!فf"فu!فt"Dف~*‏ف^فVفNفFحوٌآ‰é*‏فu!فt"ف4ف~فn!فf"ف^فVفNفFح{ٌ Qفn!فf"ه‎ل*‏‎u‎t:‏‎w:‏‎w:‏‎w:‏‎w‎6‎هر!(ôي°ف~*‏ف^فVفNفFحوٌ ¯·ءرلفل‎لة>َ>ï>ë>çه~‏(	#÷>·لةy‏(ِ¯لة‎هر*‏ح¢éآےéي°>‎wيK‏‎q‎p‎6‎6‎6‎6:à‎‎w:ل‎‎w:â‎‎w¯ةOيWَُyيK-üيyP!X‏يK+ü· #H¯^wBيx/&oyHيyOٌâ3âû}ُو@G}وoصِلرVيx/ُoو@g}وoٌOٌة!Z‏Oو(#=حdâثIب>إهحâL}لح‹âءثy({ف†فwف#ةثIبفأbâح—âyح—âxح—âz¾ فwِ€wف##ةيK+üيx!X‏ثg و  554Hيx#ثgہو  5ة4ةف~· 	ف~=بفwةفهلحUمہحiم+~=بw++ف~حtم#ث–ِےةف~·بفهل	حUمہحiم+حUم(~وً_++++~وًƒ_~و³wِےة6ةف~ثa(و±أوف~و²حوف~وًWف~و²أو¯يgضُيoٌة¯يoضُيgٌة~وًG°wةث(†w#~ˆw+ة*n‏++Hثث	^#Vصفلةف~‏ےبو?‏>ہفهل#^#Vëة"n‏##^#Vë
>ےwü6!وم"p‏"r‏"t‏"v‏2x‏:/üO>ںيy>؟يy>كيy>ےيyةےإحƒمف~و?ء¸بفp++V+^فsفrلءرفل¯ةلءرفل>	·ةلءرفل·ةإصهفه"‏يC‏2‏يC‏·تي‏زيGف*‎‎*ے‎#فُ"‏"
‏فهلحظًآپيفث~آ+ي*
‏ف^!فV"·يR(%DMي[‏·يRزêى*‏·يB"‏فn!فf"ي[‏ي°يS‏*‏فu!فt"ف4 ف4 ف4 ف4ف~*‏ف^فVفNفFح{ٌآپيف~ ف¾ ف~ف¾ ف~ف¾ ف~ف¾ فث‏أVىف~ ف¾ ف~ف¾ ف~ف¾ ف~ف¾(يK‏فn!فf"ي[‏ي°فu!فt"فللرء¯ةفث‏*‏ف^فVف^!فV"·يRDM(*ي[‏·يR0؟*‏·يB"‏فn!فf"ي[‏ي°*‏يK‏·يBDM>
فللر33·ةفللرء>·ة>	*‏يK‏·يBDMكإصهفه"‏يC‏2‏يC‏·ت¼î‏ز¼îGف*‎‎#فüG*ے‎‎"‏"
‏فهلحظًآ¾îف~ف¾8ف~ف¾8فث‏*
‏ف^!فV"·يRDMي[‏·يRز“îx±( 2y‏>_حع÷ةُإهفه‎هص!ّي± !ّ		G~#foéُإهفه‎هصحع÷*¥‏$:{‏¼0:z‏g,:}‏½0	-هحي÷ح”÷ل"¥‏حً÷>_حع÷ر‎لفللءٌةح×÷:z‏2¦‏*¥‏أSِ*¥‏:|‏½(ك-ح×÷أPِ*¥‏:}‏½(,أ}ِ>
¸ ئح”÷*¥‏أSِ*¥‏:{‏¼($أ}ِ:}‏½(ھ,:z‏gأ}ِ*¥‏:z‏¼(%أ}ِ:|‏½(ڈ-:{‏gأ}ِ:ں‏G*،‏حL÷> 2y‏ح×÷*،‏أPِحf÷أVِحf÷*¥‏,:|‏O:ں‏پ•تVِG:z‏gحL÷أVِ:z‏؛(ز[ِ:{‏؛(ع[ِ:|‏»(ز[ِ:}‏»(ع[ِëأ}ِهإهإ!~‏ > w#üءلةح<÷: ‏Oإهحü÷!~‏ح‎ل,ءîةحy÷هإAح8÷ءل> 2y‏أ‎*¥‏:{‏<”Oحü÷!~‏إهصح‎رلءةح×÷*،‏هحü÷ل:ں‏Gإص,هحü÷ص: ‏Oإ!~‏ح‎ءرلمëه!~‏ح‎رلءعح<÷!~‏: ‏Oأ‎:y‏ه*¥‏حü÷!~‏wح‎لة*¥‏حü÷!y‏أ‎\&)فw!ف~"خفw"ؤأ†ïص‎ل‎^‎V‎N‎F‎لفلل¯ة‎لفللة‎لفلل>·ة‎هإه!çَ~‎¾ #‎#ُ¯لء‎لة>÷و7هصإُ~‏(¾ #َءٌ0#~‏ ء‏ ءرل¯ةءرل>·ةفهصه*‎‎¯<2×‎#هفلف~و‏(ëلهص‏(ي،(ِل:×‎‏ سل>·~‏ل ôف~وG¯:×‎ررفلة‎ههف~و‏(‏0!
ٌ…o0$‎ل‎ه‎~¦ ل‎ل¯ة>>ل‎ل·ة @€إُصهë! ‎حو(,لرٌُصه! ‎حو  ‎لهي°لرٌُصه! ‎حQو ¯لرءءة·لرءءةصهُë! ‎حو :¬‎ث ِ2¬‎ٌرصُحQو ¯للرة>·للرةإصهفه‎هُ>2ض‎ٌُح‍ْ(‏›(
ه!ض‎5ل(?ëٌُحsô(‏›(َُ,ٌُح%ٍ‏ #>2ض‎ٌ‎لفللرءإُح‍ْ(ه!ض‎5ل(ٌï·ءءة‎ل‎لفللرء>ةإ‎هُ>2ض‎ٌُح²ْ(‏›(
ه!ض‎5ل~(ْ‎~‏€(ٌ<‏ هف5ف4‎ٌ<‏ زف5فل‎للرءة‎ه‎*p‎‎u‎t‎6‎~‏ƒ ù"p‎‎لة‎*p‎ة>>>‎هحFô ح–ô ‎6‎ث~(ْ‎~‏€‎لة>>>‎هحFô ‎~‎لة:üح‎أة‎هُحئْ ٌُحâْ0ù‎ل‎لة‎هُحےْ ٌُحû0ù‎ل‎لةإصه‎هحFô ح–ô ح8û‎6‎للرءة‎هحFô7 ح®ô ·‎ث~(‎~‏€7‎لةإصه‎هحFô ح–ô ح8û‎6‎للرءة‎هحFô7 ح®ô ·‎ث~(‎~‏€7‎لةُث?ث?ث?ث?‎w	‎~‎w‎~‎w‎s‎r‎q‎p‎u‎tٌة2r‎ح†û :r‎ح¥û0ّة2r‎حآû :r‎حلû0ّة‎هحFô ح–ô ‎s‎r‎q‎p‎6‎لة‎هحFô7 ح®ô ·‎ث~(‎~‏€7‎لة‎هحFô ح–ô ‎q‎p‎u‎t‎6‎لة‎هحFô7 ح®ô ·‎ث~(‎~‏€7‎لةےةˆDIRECTORY  ب€BLOCKS LEFTW>·ةإصO‎*p‎‎F¯¸(‎yو‎¾(‎÷y>·رءةحFô ‎6‎ث~(ْ‎~‏€ة‎هحFô ¯‎~‎لةإO‎~‏(‎ث~(¯y<>ءة‎~· >·ة¯ةإصحذô Oyحàô0ْرءة>أsôإص>u‎ح†ûرءة>ح¥û0(‏Œ حذô(7:u‎·ةإصه‎ه2v‎>2w‎!v‎حُ‎للرءةإصه‎ه>حFô 7ح–ô 2]T>¾(#y‏ ôë>حuû(‏† َëقë¯¹(>حuû(‏†(ُ‎للرءة2v‎>2w‎!v‎ح€ُة2v‎>2w‎!v‎ح€ُةح¸ُةإصه‎ه>حFô &ح–ô ا]T>¾(#y‏ ôë>حآûë¯¹>ؤآû‎للرءة‎ه>حFôحلû0(	‏† ‎6·‎لة>أsô>أsôيCں‏يS،‏يS¥‏"£‏z2z‏€=2{‏{2|‏پ=2}‏>*‏·يB"‏ف^!فV"*‏ي°"‏فثِفث~(	فللرء>
·ةف4 ف4ف~*‏ف^فVفNفFحوٌآ¾îفث¶*‏فu!فt"ف6ف6ف4 ف4 ف4 ف4ف~و‏آريف~*‏ف^فVفNفFح{ٌ +يK‏فnفf	فuفtف^!فV"*‏ي°فs!فr"فثِ¯>	·فللرءةُx2â‎y2ل‎z2à‎ٌة:â‎G:ل‎O:à‎W°±(¯ة>·ةيSے‎"‎‎إصفه#ف*‎‎ف6فّفلرءةهفه‎ه"‏ف*‎‎فwف6ف6ف6ف6ي[ے‎فs!فr"!ش‎6ف~*ے‎ف^فVفNفFح{ٌآ&ًه‎ل‎~وفwف6ف6ف6 ح5ًآ&ًف~!ئفw!ف~"خفw"!ش‎4&Kف4ف~ ف¾ع,ًف~ف¾ع,ًف~ف¾ع,ًف~ف¾ع,ًف~*ے‎ف^فVفNفFح{ٌآ&ًي[ے‎فs!فr"'!ش‎4ف^!فV".&ثF HثV *‏:ط‎·(حTًحSً(ف~!ئ))))ي[£‏ëة
€ ¢£،‍ِ¹ِƒِsِ÷ٍِىِمِشِƒِdِ¹ِ1X‏Ga‎!`‎¯wي°>2`‎ح‎حS‎>!@ح&‎:üح‎حِّش!گسحêî>2o‎>حsô >حFô‎~و‏>8B>حsô >حFô‎~و‏>8+>حsô >حFô‎~ُو‏8ٌث?ث?ث?ث?‏>8أçüٌ>2o‎!ب:o‎ح‍ْتïّO:o‎و‏ نy‏›(كأآّ:o‎Gأبإصه‎ه!ہ‏"p‎حKùح_ù!ہ‏ء‏?6ي°حpù ûحثù‎للرءةإصه‎ه"p‎حKùح_ù*p‎]T>6ي°حpù ûحثù‎للرءة:(üO>يy>= ْ¯يyةإصz³ ûِرءة‎ههإص‎*p‎‎6‎6z³ 
>·0‎~‏پ ê‎6z³ 
>·‎~‏‚ ê‎هل‎u‎t¯رءل‎لةإصه‎هفه*p‎]T:6ي°‎*p‎‎ف*p‎ف6>ُ‎w‎6‎ث(ëٌُحsô(‏›(َُ	ٌُح%ٍ‏(>ء‎لءةث?ث?ث?ث?‏‎~ وث?ث?ث?ث?ةهفه‎هصُ!؛‎حوآَف!؛‎ف^فVفnفf·يR|µتَ"‏فsفr:ش‎'گ($0ûف*‎‎ف^!فV"صإ!؛‎ي°رله‎ل‎ثF(^<:ش‎2ص‎ٌرصُ!؛‎حQو jٌر(ôصُ!؛‎حوف*‎‎فn!فf"ه‎ل‎ثF(J!ش‎:ص‎<¾ 7‎n‎fي[‏‎u‎t‎n‎f·يR‎u‎tف~*ے‎ف^فVفNفFحوٌ 	رر‎لفلل¯ة·رر‎لفللة‎هإصه2r‎y2†‎هح¯َ!عَي[ے‎hي°لي[ے‎~‏(#ِ>‎*ے‎:†‎ِ€‎wلرءإصه‎s‎rصN‎ر‎q÷‎qù‎që·يB‎u‎t>2‡‎حإَ :†‎G(ح¯َ!‡‎4حإَ ُ¯لرء‎لةإصه*ے‎ي[ے‎ے6ي°لرءةإ*ے‎:‡‎_:r‎حوٌءة            €UھےBOOT       ةةةةةةيE	
?؟¾üے€ہےأ2ّأ'ِأـُأ
ِأ_ùأ¸ُأ|ُأâْأ¥ûأàôأûألûأFôأFôأLْأِّأKùأُأüôأ‍ْأ؛ôأ{ْأْأ‡ْأƒْأ/ْأsôأثôأزُأ×ُأثùأ"ùأ]ْأQْأUْأYْأ€ُأmُأئْأ†ûأذôأےْأآûأpùأ²ْأuûأêîأ#َأêأëأlëأگوأوأQوأىأڈيأإîأشîأٌأNٌأˆôأ”ْأ‌ْأAٍأ‰ًأ{ٌأوٌأظًأïأوأBôأBôأBôأBôأBôأ‘لأ…لأSلأàأàأ4àأOàأYàأfàأةàأدàأ
لأ)لأIلأإلأSâأ¤âأUمأ_مأiمأtمأ«مأرمأçمأنأ¸نإصz³ ûِرءة‎ههإص‎*p‎‎6‎6z³ 
>·0‎~‏پ ê‎6z³ 
>·‎~‏‚ ê‎هل‎u‎t¯رءل‎لةإصه‎هفه*p‎]T:6ي°‎*p‎‎ف*p‎ف6>ُ‎w‎6‎ثےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےے`m?€†ژ‌¬¹بخضقىُùے	 ,8CO]ft…‹”œ¥¯¾تطنً‏(0=FR^jt‚ڈ›£®¹ئزغçُ‎	I $$	@ l6	$g< ِ--&(57%%I)<كّ#7I	d¾®eI@ $I$I$I$$$چ–bI <o) 	$@)-%I`	-$$?66	-$$¼I	??deن?-نg ??I!,?d6&-$?',-%	-ن?7&@-	$<?'	-ن?&@d-&)e$ن?®-I@ 	  Iل@--8?'	I ?	-%@$?66Lه$!$d6?o&!$$,-¾m2?I	¸?$$-!$$,-66?)-%ہ?7&@$-SHOULD I DO?"66INPUT i$:IF i$="" THEN 6667IF i$="SAVE" OR i$="LOAD" THEN 315069 x$=LEFT$(i$, 3):IF LEN(i$)>4 AND x$="LOO" THEN  i$="EXA"+i$70IF x$="TAK" THEN  i$="GET"+i$71IF LEFT$(i$, 3)="INV" THEN 130073IF x$="GO " THEN  i$=MID$(i$, 4, 1)76IF LEFT$(i$, 3)="LOO" THEN 5377 sc=sc-1: ta=ta+1:IF LEN(i$)<>1 THEN 8678IF i$="N" AND d(l, 1)<>0 THEN  l=d(l, 1):GOTO 5379IF i$="S" AND d(l, 2)<>0 THEN  l=d(l, 2):GOTO 5380IF i$="E" AND d(l, 3)<>0 THEN  l=d(l, 3):GOTO 5381IF i$="W" AND d(l, 4)<>0 THEN  l=d(lےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےے~(ْ‎~‏€(ٌ<‏ هف5ف4‎ٌ<‏ زف5فل‎للرءة‎ه‎*p‎‎u‎t‎6‎~‏ƒ ù"p‎‎لة‎*p‎ة>>>‎هحFô ح–ô ‎6‎ث~(ْ‎~‏€‎لة>>>‎هحFô ‎~‎لة:üح‎أة‎هُحئْ ٌُحâْ0ù‎ل‎لة‎هُحےْ ٌُحû0ù‎ل‎لةإصه‎هحFô ح–ô ح8û‎6‎للرءة‎هحFô7 ح®ô ·‎ث~(‎~‏€7‎لةإصه‎هحFô ح–ô ح8û‎6‎للرءة‎هحFô7 ح®ô ·‎ث~(‎~‏€7‎لةُث?ث?ث?ث?‎w	‎~‎w‎~‎w‎s‎r‎q‎p‎u‎tٌة2r‎ح†û :r‎ح¥û0ّة2r‎حآû :r‎حلû0ّة‎هحFô ح–ô ‎s‎r‎q‎p‎6‎لة‎هحFô7 ح®ô ·‎ث~(‎~‏€7‎لة‎هحFô ح–ô ‎q‎p‎u‎t‎6‎لة‎هحFô7 ح®ô ·‎ث~(‎~‏€7‎لةےة1LOMEM :290003REM          Lighthouse5GOSUB 4000:GOTO 5340 ht=7*(ht-1): vt=8*vt-142FOR i=1 TO LEN(st$): ch=ASC(MID$(st$, i, 1))-32:IF ch=0 THEN 4644DRAW ch AT ht, vt46 ht=ht+8:NEXT i:RETURN53HOME:?:? "  I AM "; r$(l):?54? "  OBVIOUS EXITS ARE:":? "    "; :FOR x=1 TO 6:IF d(l, x)<>0 THEN ? d$(x); " "; 55NEXT: a=057IF sc<0 THEN  sc=060?:?:? "  I CAN SEE:":FOR x=1 TO 42:IF o(x)=l THEN ? "    "; o$(x): a=164NEXT:IF a=0 THEN ? "    NOTHING OF INTEREST."65? "===============================":? " WHAT -!$$,-µ?	-%<ك"$d-%!$$´
-%$–2&	-$$<¨-$$$!$$l	I	??$$$!$$¬f`666!$$¬ھ•$$$	-$$?66!$$,-¾?	%¨ $?66!$$,-¾?-<8çd-I$$$?M%	-$$ü66&I$$ك36®!$$l	666´#!l	¾&I$نl	ِI	??d<?'I	??,<,<,--HI)-%'%'%'‎?@a)-%ےےےےے, 4):GOTO 5382IF l=6 AND i$="U" AND o(25)=-1 THEN ? "I CAN'T GET THE DOLLY UP THE STAIRS.":GOTO 6583IF i$="D" AND d(l, 6)<>0 THEN  l=d(l, 6):GOTO 5384IF i$="U" AND d(l, 5)<>0 THEN  l=d(l, 5):GOTO 5385? "    YOU CAN'T GO THAT WAY.":GOTO 6586IF i$="QUIT" THEN 700087IF i$="HELP" THEN HOME:?:? "VERBS:":?:? TAB(2):FOR i=1 TO 21:? v$(i), :NEXT:?:GOTO 6588 v=0: ob=o:GOSUB 160094FOR x=1 TO 42:IF LEFT$(o$(x), 3)=ob$ THEN  ob=x95NEXT96IF ob$="SMU" THEN  ob=1097IF ob$="LOG" THEN  ob=998IF ob$="BOX" THEN  oob=12 AND o(13)=0 THEN ? "    I SEE A SKELETON IN IT.": o(13)=l:GOTO 65210IF ob=12 THEN ? "    I SEE A KNOB ON THE BOTTOM     OF THE COFFIN.": o(14)=l:GOTO 65215IF ob=13 AND o(9)=0 THEN ? "    I'VE FOUND SOMETHING.": o(9)=l:GOTO 65220IF ob=15 AND fi=0 THEN ? "    THERE'S NO OIL IN IT.":GOTO 65225IF ob=15 THEN ? "    IT LOOKS LIKE AN ANTIQUE.":GOTO 65230IF ob=16 THEN ? "    I SEE HEIROGLYPHICS AROUND     IT.":GOTO 65235IF ob=17 THEN ? "    THERE'S A LIQUID IN IT.": o$(17)="BOTTLE WITH LIQUID":GOTO 652b=15 AND m=1 THEN  o(29)=17:? "    TAKEN": ca=ca+1:GOTO 65111IF ob=6 OR ob=14 THEN 1665112IF ob=21 OR ob=27 THEN 1665113IF ob=28 OR ob=32 THEN 1665114IF ob=33 OR ob=34 THEN 1665115IF ob=35 OR ob=36 THEN 1665116IF ob=37 OR ob=38 THEN 1665117IF ob=39 OR ob=42 THEN 1665119IF ob=7 OR ob=11 THEN 1670120IF ob=12 OR ob=25 THEN 1670121IF ob=29 THEN 1670125IF ob=3 OR ob=30 THEN ? "I DON'T THINK THAT'S  POSSIBLE.":GOTO 65130IF ob=4 THEN ? "I CAN'T GET IT-I THINK IT'S":? "CONNECTED TO SOMETHING.":GOTO 651NG!": o(33)=l:GOTO 65285IF ob=35 THEN ? "    I SEE A PULLEY SYSTEM": o(39)=l:GOTO 65300IF ob=36 THEN ? "    I CAN SEE DOWN A LONG WAY.":GOTO 65305IF ob=39 THEN ? "    I THINK IT'S A DUMBWAITER.":GOTO 65310IF ob=40 THEN ? "  MUST BE WORTH MILLIONS!":GOTO 65315? "    I SEE NOTHING SPECIAL.":GOTO 65320IF ob=2 OR ob=8 THEN 330322IF ob=9 OR ob=16 THEN 330324IF ob=20 THEN 330326? "    HOW CAN I READ THAT?":GOTO 65330IF o(ob)<>-1 THEN ? "    I DON'T HAVE IT.":GOTO 65335IF ob=2 THEN 1680340IF ob=8 THEN HERE'S SOMETHING WRITTEN        ON IT.":GOTO 65176IF ob=2 THEN ? "    THERE'S SOMETHING WRITTEN      ON IT.":GOTO 65180IF ob=3 THEN ? "    LOOK'S LIKE A TOUGH GUY.":? "    HE SAYS:":? "       <WHAT'S THE PASSWORD?>":GOTO 65185IF ob=4 THEN ? "    IT LOOKS LIKE A BELL-PULL":GOTO 65190IF o(6)<>l AND ob=7 THEN ? "    I SEE SOMETHING!":GOTO 2000196IF ob=8 THEN ? "    I SEE RATHER POORLY DRAWN      PICTURES OF ISLANDS WITH       X'S ON THEM.":GOTO 65200IF ob=10 THEN ? "    HE'S DEAD ALRIGHT!":GOTO 65205IF b=1899IF ob$="CAB" THEN  ob=21100IF ob$="CHE" THEN  ob=25101IF ob$="SER" THEN  ob=30102IF ob$="PAP" THEN  ob=2103IF ob$="NOT" THEN  ob=20104IF ob$="LIQ" THEN  ob=17105IF ob$="COF" AND o(12)=0 THEN  ob=11106IF v=0 THEN ? " I DON'T KNOW HOW TO "; :? i$:GOTO 65107ON v GOTO 108, 140, 165, 320, 365, 365, 430, 440, 485, 505, 520, 540, 610, 1035, 1090, 1110, 1125, 1150, 1180, 1190, 1220108IF o(ob)<>l THEN ? "    I DON'T SEE IT HERE.":GOTO 65109IF ca>5 THEN ? "    I CAN'T CARRY ANY MORE.":GOTO 65110IF o40IF ob=22 AND f=0 THEN ? "    IT'S LOADED.":GOTO 65245IF ob=22 THEN ? "    IT'S EMPTY.":GOTO 65250IF ob=25 THEN ? "    IT LOOKS VERY UTILITARIAN.":GOTO 65255IF ob=26 THEN ? "    IT LOOKS LIKE A GOOD ONE.":GOTO 65260IF ob=27 THEN ? "    IT'S LOCKED.":GOTO 65265IF ob=29 THEN ? "    IT'S BIG ENOUGH FOR TWO OF      ME.":GOTO 65270IF ob=30 THEN ? "  IT LOOKS TERRIBLY FEROCIOUS!":GOTO 65275IF ob=32 AND o(34)=0 THEN ? "    I SEE SOMETHING!": o(34)=l:GOTO 65280IF ob=32 AND o(33)=0 THEN ? "    I SEE SOMETHI35IF ob=40 THEN HOME:GOTO 7000136 o(ob)=-1: ca=ca+1:? "    TAKEN":GOTO 65140IF o(ob)<>-1 THEN ? "    I DON'T HAVE IT.":GOTO 65150IF ob=15 THEN  d(17, 4)=0: o(29)=0155IF ob=25 AND l=5 THEN ? "THE CHEST CRASHES DOWN AND       SMASHES OPEN": o(25)=1: o(40)=1:GOTO 65160 o(ob)=l: ca=ca-1:? "    DROPPED":GOTO 65165IF o(ob)=l OR o(ob)=-1 THEN 170166?:? "    I DON'T SEE IT HERE.":GOTO 65170IF ob=1 THEN ? "I SEE A FEW TYPES OF ROCKS-    INCLUDING  FLINT.": o(41)=o(l):GOTO 65175IF ob=9 OR ob=20 THEN ? "    T? "   I THINK IT'S SPANISH-       I CAN'T READ SPANISH. SORRY.":GOTO 65345IF ob=9 THEN 1690355IF ob=16 THEN ? "    I'M SORRY,BUT I CAN'T":? "    TRANSLATE":GOTO 65360IF ob=20 THEN ? "    THERE'S ONE WORD ON IT                 .....MARPLE....":GOTO 65365IF o(ob)=l OR o(ob)=-1 THEN 370366? "    I DON'T SEE IT HERE.":GOTO 65370IF ob=4 THEN ? "  NOTHING SEEMED TO HAPPEN.":GOTO 2004385IF ob=6 THEN ? "   A SECRET PANEL SLIDES OPEN.": d(8, 1)=16:GOTO 65390IF ob=14 THEN ? "    A HIDDEN DOOR OPENS": d(11, 1) BUT I DON'T SEE WHY.":GOTO 65565IF ob<>17 THEN 600570INPUT "    IN OR ON WHAT? "; p$575IF p$="CUP" AND o(5)=-1 THEN ? " THE CUP DISSOLVES BEFORE YOUR  VERY EYES.": o(5)=0: o(17)=0:GOTO 65580IF p$="DOOR" AND l=16 THEN 3450585? "    NOTHING HAPPENS.":GOTO 65600IF ob=19 THEN GOTO 1125605? " HOW CAN I "; i$:GOTO 65610IF o(ob)<>-1 THEN ? "    I DON'T HAVE IT.":GOTO 65615IF ob<>15 THEN GOTO 1012620INPUT "    WITH WHAT "; p$625IF p$="OIL" AND o(19)=-1 THEN ? "    THE LANTERN IS FILLED.": fi=1: o(19)=0:AND o(10)=l AND s=1 THEN ? "    I FOUND NOTHING INTERESTING":GOTO 65435GOTO 108440IF o(ob)=l OR o(ob)=-1 THEN 445442? "    I DON'T SEE IT HERE.":GOTO 65445IF ob=11 THEN ? "    OK- I'VE OPENED IT.": o(11)=0: o(12)=11:GOTO 65450IF ob=17 THEN ? "    IT'S OPEN.":GOTO 65460IF ob=18 THEN ? "    I SEE A CAN OF OIL.": o(19)=l:GOTO 65465IF ob=21 THEN ? "    I SEE SOME BULLETS.": o(24)=l:GOTO 65470IF ob=27 THEN ? "    IT'S COMPLETELY JAMMED.":GOTO 65475IF ob=25 THEN ? "    IT WON'T OPEN.":GOTO 65480? "    I 651030? "    HOW CAN I "; i$:GOTO 651035IF o(22)<>-1 THEN ? "    I DON'T HAVE A MUSKET.":GOTO 651040IF ob<>27 THEN 10601045IF f=1 THEN ? "    THE MUSKET IS EMPTY.":GOTO 651050IF f=0 AND ft=0 THEN ? "    YOU MISSED.": f=1: ft=1:GOTO 651055IF f=0 AND ft=1 THEN ? "    YOU SHOT DOWN THE DOOR.": f=1: d(16, 1)=17: o(27)=0:GOTO 651060IF ob<>3 THEN 10751062IF f=1 THEN ? "    THE MUSKET IS EMPTY":GOTO 651064IF f<>1 THEN ? "    THE BULLET PASSES RIGHT        THROUGH HIM.I THINK HE'S A     GHOST.": f=11070GIT.":GOTO 65525IF ob=19 THEN ? "    YUCH- IT TASTES AWFUL!":GOTO 65530IF ob=19 THEN ? "   AAARRRGGGHHH.....................I'M DEAD.":FOR i=1 TO 2000:NEXT:GOTO 7000535? "    I CAN'T DO THAT.":GOTO 65540IF o(ob)<>-1 THEN ? "    I DON'T HAVE IT.":GOTO 65545IF ob<>19 THEN 565550IF ob=19 THEN INPUT "     IN OR ON WHAT? "; p$551IF LEFT$(p$, 3)="LAN" AND o(15)<>-1 THEN ? "    I DON'T HAVE IT.":GOTO 65555IF LEFT$(p$, 3)="LAN" THEN ? "    LANTERN IS NOW FILLED.": fi=1: o(19)=0: ca=ca-1:GOTO 65560? "    OK.=13:GOTO 65395IF ob=31 THEN ? "  OK":GOTO 66400IF ob=33 THEN ? "    THE PANEL OPENS.": o(38)=7: o(37)=6: d(6, 6)=7: d(7, 5)=6:GOTO 65410IF ob=34 THEN ? "    NOTHING HAPPENS":GOTO 65412IF ob<>39 THEN 425415IF ob=39 THEN ? "    THE PLATFORM STARTS TO RISE":IF t=1 THEN 420417GOTO 65420IF ob=39 THEN ? "    THE TREASURE CHEST MOVES":? "      SLOWLY UPWARDS.": o(25)=5:GOTO 65425? "  I CAN'T "; i$:GOTO 65430IF ob=10 AND o(10)=l AND s=0 THEN ? "    I FOUND A FOLDED NOTE!": o(20)=l: s=1:GOTO 65432IF ob=10  ca=ca-1:GOTO 65627IF LEFT$(p$, 3)="BOT" OR LEFT$(p$, 3)="LIQ" THEN ? "    THAT DOESN'T SEEM RIGHT TO ME.":GOTO 65630? "    I DON'T THINK I CAN.":GOTO 651012IF ob<>5 THEN 10221015IF ob=5 THEN INPUT "    WITH WHAT? "; p$:IF p$="OIL" AND o(19)=-1 THEN ? "    OK.": o(19)=0: ca=ca-1:GOTO 651020IF ob=5 AND p$="BOTTLE" THEN ? "    THE CUP SLOWLY DISSOLVES.": o(5)=0: ca=ca-1:GOTO 651022IF ob<>19 THEN 10301025IF ob=19 THEN INPUT "    INTO WHAT? "; p$:IF LEFT$(p$, 3)="LAN" THEN ? "    OK.": fi=1: ca=ca-1:GOTO CAN'T "; i$; ".":GOTO 65485IF ob<>15 THEN ? "    I CAN'T LIGHT THAT.":GOTO 65487IF o(15)<>-1 THEN ? "    I DON'T HAVE IT.":GOTO 65490IF fi=0 THEN ? "    THERE'S NO OIL IN IT.":GOTO 65495IF o(41)<>-1 THEN ? "    I DON'T HAVE ANYTHING TO   LIGHT IT WITH.":GOTO 65500? "    LANTERN IS LIT.": m=1: o(29)=17: o(28)=0:GOTO 65505IF o(ob)<>-1 THEN ? "    I DON'T HAVE IT.":GOTO 65510IF ob<>16 THEN ? "    I CAN'T WEAR THAT.":GOTO 65515? "    IT FITS WELL.": g=1:GOTO 65520IF o(ob)<>-1 THEN ? "    I DON'T HAVE OTO 651075IF ob=30 THEN ? "    BULLETS HAVE NO EFFECT ON        SERPENT THIS SIZE!": sh=sh+1:IF sh=4 GOTO 70001077IF ob=30 THEN GOTO 651080IF f=0 THEN ? "    NO EFFECT.":GOTO 651085? "    THE MUSKET IS EMPTY.":GOTO 651090IF o(ob)<>l THEN ? "    I DON'T SEE IT.":GOTO 651100IF ob=4 OR ob=39 THEN ? "SEEMS TO BE A VERY STRONG ROPE.    I CAN'T CUT IT.":GOTO 651105? "   I CAN'T "; i$:GOTO 651110IF o(ob)<>-1 THEN ? "    I DON'T HAVE IT.":GOTO 651115IF ob=22 AND o(24)=-1 THEN ? "    THE MUSKET IS NOW LOADEN"1685? "  CHARM THE BEAST":? "   OR ELSE YOU'RE GONE.":GOTO 651690HOME:?:? " THE LAST PAGE READS:":?:? "THE SERPENT'S TAKEN ALL BUT ME"1692? "I,CAPTAIN JAMES,ONE TIME LEADEROF THE RICHEST BAND"1695? "OF PIRATES IN THE LAND.....":?:? "THE SCRAWL FADES INTO NOTHING":GOTO 652000IF o(5)=0 THEN  o(5)=l:GOTO 652002 o(6)=l:GOTO 652004IF r=0 THEN  d(7, 5)=0: o(38)=0: r=1:GOTO 652006IF ob=4 THEN  d(7, 5)=6: o(38)=7: r=0:GOTO 653000FOR i=1 TO 42:IF o(i)=-1 THEN  sc=sc+i3010NEXT i3011IF ob=40 THEN  sc=INT(9 THEN 11701165? "    IT SOUNDS BEAUTIFUL.":GOTO 651170IF g=1 THEN ? "THE MONSTER SMILES HAPPILY AND            DISAPPEARS.": d(19, 4)=20: o(30)=0:GOTO 651175? "THE SERPENT OPENS HIS MOUTH AND ....AAAAA....":GOTO 14901180IF ob<>29 THEN ? "    I CAN'T "; i$:GOTO 651185IF o(29)=0 THEN ? "    WHAT BOAT?":GOTO 651190IF l=17 THEN  l=18: o(30)=19:GOTO 531195IF o(23)<>-1 THEN ? "I DON'T HAVE A SUITABLE OBJECT TO   DO THAT.":GOTO 651200IF ob=30 THEN ? "I'M AFRAID HE DIDN'T LIKE           THAT...........OOOOb$(4)=na$: sc=b(9): na$=b$(9):GOTO 30853100IF sc>b(2) THEN 31103105 b(8)=b(3): b$(8)=b$(3): b(3)=sc: b$(3)=na$: sc=b(8): na$=b$(8):GOTO 30953110IF sc>b(1) THEN  b(6)=b(1): b$(6)=b$(1): b(1)=sc: b$(1)=na$: sc=b(6): na$=b$(6)3115 b(7)=b(2): b$(7)=b$(2): b(2)=sc: b$(2)=na$: sc=b(7): na$=b$(7):GOTO 31053150HOME:VTAB 5:? "    ENTER CHOICE":?:? "    A. DATA DRIVE #1":? "    B. DISK DRIVE #1"3155? "    C. DISK DRIVE #2":? "    D. RETURN TO GAME":?3156INPUT dn$:IF dn$<>"A" AND dn$<>"B" AND dn$<>"C" THEN 653IF a=0 THEN ? "   NOTHING":?:GOTO 651330?:GOTO 651490?:? "   YOU'RE DEAD!!":FOR i=1 TO 2000:NEXT:GOTO 70001600FOR x=1 TO LEN(i$)1605IF MID$(i$, x, 1)=CHR$(32) THEN  m=x1610NEXT1615IF m<4 OR m>10 THEN ? "    I DON'T UNDERSTAND.":GOTO 651620 ve$=LEFT$(i$, 3)1625FOR x=1 TO 211630IF LEFT$(v$(x), 3)=ve$ THEN  v=x1635NEXT1645 ob$=MID$(i$, m+1, 3)1650RETURN1665? "    I CAN'T GET THAT.":GOTO 651670? "    IT'S FAR TOO HEAVY.":GOTO 651680HOME:?:? " IT READS:":?:? "  MUSIC IS PLAYED":? "   BEAUTY IS WORD.": f=0:GOTO 651120? "  I CAN'T "; i$:GOTO 651125IF o(ob)<>l AND o(ob)<>-1 THEN ? "    I DON'T SEE IT.":GOTO 651130IF ob<>25 THEN 6101132INPUT "    ON OR IN WHAT? "; p$1135IF LEFT$(p$, 3)="DOL" AND o(31)=-1 THEN ? "    OK.": o(25)=-1: d(6, 5)=0:GOTO 651140IF LEFT$(p$, 3)="HOL" AND o(25)=-1 AND l=6 THEN ? "    OK.": d(6, 5)=3: t=1: o(25)=6:GOTO 651145? "    I CAN'T.":GOTO 651150IF ob<>26 THEN ? "    I CAN'T PLAY THAT!":GOTO 651155IF o(ob)<>-1 THEN ? "    I DON'T HAVE IT.":GOTO 651160IF l=18 OR l=1sc*2+INT(RND(1)*25))3012VTAB 5:INPUT "NAME FOR SCOREBOARD? "; na$:FOR m=1 TO LEN(na$):IF ASC(MID$(na$, m, 1))>90 THEN  m=LEN(na$):GOTO 30123014NEXT m3015?:?:?:?:?:?3016ONERR  GOTO 90003020? CHR$(4); "open lightscore"3030? CHR$(4); "read lightscore"3040FOR i=1 TO 5:INPUT " "; b(i)3045INPUT " "; b$(i)3047NEXT3048HTAB 1:? CHR$(4); "CLOSE lightscore"3070IF sc<=b(5) THEN  ls=1:RETURN3080IF sc>b(4) THEN 30903085 b(5)=sc: b$(5)=na$:RETURN3090IF sc>b(3) THEN 31003095 b(9)=b(4): b$(9)=b$(4): b(4)=sc: OOOOO......":GOTO 14901210IF ob=3 THEN ? "  HOW MURDEROUS. UNFORTUNATELY":? "    IT DID NO GOOD.":GOTO 651215? "    DON'T BE RIDICULOUS.":GOTO 651220IF l<>9 THEN ? "    OK.":GOTO 651225IF ob<>42 THEN ? "    NOTHING HAPPENED.":GOTO 651227IF ob=42 AND o(3)=l THEN ? "    HE SMILES AND SAYS:":? "      GOOD TO SEE YOU,CAP'N.."1228?:? "      .....AND DISAPPEARS!!"1229 o(3)=0: d(9, 2)=101230GOTO 651235END1300HOME:?:? " I AM CARRYING: ": a=01310FOR x=1 TO 42:IF o(x)=-1 THEN ? "    "; o$(x): a=11320NEXT:157ONERR  GOTO 3158:GOTO 31603158CLRERR:TEXT:? "     PLEASE CHECK DRIVES!":GET a$:GOTO 653160IF dn$="A" THEN  dn=13165IF dn$="B" THEN  dn=53170IF dn$="C" THEN  dn=63175?:? "  ENTER FILE NAME":INPUT nm$:IF nm$="" THEN 31753180? "  INSERT TAPE OR DISK":? "  HIT STORE/GET WHEN READY":? "  ANY OTHER KEY TO ABORT"3200GET a$:IF a$=CHR$(147) OR a$=CHR$(155) THEN 32103205TEXT:HTAB 5:FLASH:? "ATTEMPT ABORTED!":NORMAL:GOTO 653210? CHR$(4); " open "; nm$; " d"; dn3212IF i$="LOAD" THEN 33103213? CHR$(4); " w354059HLIN 7, 11 AT r:NEXT4060COLOR =0:VLIN 33, 35 AT 84061REM                   clouds4062COLOR =154063HLIN 20, 21 AT 7:HLIN 19, 21 AT 8:HLIN 18, 20 AT 9:HLIN 18, 20 AT 104064HLIN 24, 25 AT 15:HLIN 24, 26 AT 16:HLIN 23, 26 AT 17:HLIN 23, 24 AT 184065HLIN 23, 23 AT 194066HLIN 31, 34 AT 10:HLIN 32, 35 AT 9:HLIN 32, 34 AT 8:PLOT 33, 7:PLOT 33, 114100?:? "    LIGHTHOUSE ADVENTURE":FOR x=1 TO 2000:NEXT4110? "     by Chris Wilkinson":FOR x=1 TO 2000:NEXT4120VTAB 23:? SPC(31):VTAB 23:? "    revised forNOW FILED.": c=1: ca=ca-1: o(19)=0:GOTO 653425IF LEFT$(p$, 3)="LAN" THEN ? "    LANTERN IS NOW FILLED.": c=1: ca=ca-1: o(19)=0:GOTO 653430RETURN3450? "    THE DOOR SLOWLY":? "    DISINTEGRATES."3455 o(27)=0: d(16, 1)=17: o(17)=03460GOTO 654000POKE 16149, 255:POKE 16150, 255:TEXT4015GR4016REM                     background4017COLOR =7:FOR r=0 TO 39:HLIN 0, 39 AT r:NEXT4018REM                   water4019FOR r=35 TO 39:COLOR =144020HLIN 23, 39 AT r4021NEXT4022VLIN 35, 38 AT 22:VLIN 35, 36 AT 21:V    you're going to find it!":?:?:?5120? " All you have to do is ":? SPC(12); "find the gold....":?:?:?5125GOSUB 57505130HOME:?:?:?:? "   Use verb-noun instructions.  For directions use the first"5135? " letter (NSEWUD). You can also  use several three word"5140? " responses. For example, put    object <RETURN>. You will      then be asked in or on what?"5145? " Just answer with the noun you  want to put the object":? " in or on.":?5147? "   To save a game in progress,  enter SAVE. To reload a":? " p7:HLIN 7, 11 AT 8:HLIN 6, 12 AT 94035COLOR =8:FOR r=10 TO 124036HLIN 7, 11 AT r4037NEXT4038COLOR =134039FOR c=6 TO 12 STEP 24040VLIN 13, 16 AT c4041NEXT4042COLOR =0:FOR c=7 TO 11 STEP 24043VLIN 13, 16 AT c4044NEXT4045COLOR =154046FOR r=17 TO 214047HLIN 7, 11 AT r:NEXT4048COLOR =0:PLOT 10, 18:PLOT 10, 194049COLOR =34050FOR r=22 TO 254051HLIN 7, 11 AT r:NEXT4052COLOR =0:PLOT 8, 234053COLOR =154054FOR r=26 TO 294055HLIN 7, 11 AT r:NEXT4056COLOR =0:PLOT 10, 274057COLOR =34058FOR r=30 TO rite "; nm$3215? l:? ca:? fi:? g:? sc3220FOR x=1 TO 42:? o(x):NEXT3230FOR y=1 TO 21:FOR x=1 TO 6:? d(y, x):NEXT x:NEXT y3240? CHR$(4); " close "; nm$3250? "   GAME SAVED":GOTO 653310? CHR$(4); " read "; nm$3315INPUT ""; l:INPUT ""; ca3317INPUT ""; fi:INPUT ""; g3318INPUT ""; sc3320FOR x=1 TO 42:INPUT ""; o(x):NEXT3330FOR y=1 TO 21:FOR x=1 TO 6:INPUT ""; d(y, x):NEXT x:NEXT y3340HTAB 1:? CHR$(4); "close "; nm$3350GOTO 533420INPUT "    IN OR ON WHAT? "; p$:IF p$="LANTERN" THEN ? "    LANTERN IS  ADAM(tm)":FOR x=1 TO 2000:NEXT4130VTAB 23:? SPC(31):VTAB 23:? "        by N.J.Lowe":FOR x=1 TO 2000:NEXT4140VTAB 23:? SPC(31):VTAB 23:? "       embellished  by":FOR x=1 TO 2000:NEXT4150VTAB 23:? SPC(31):VTAB 23:? "        Bob Zimmerman":FOR x=1 TO 2000:NEXT4200POKE 17115, 21:TEXT5100HOME:?:?:HTAB 5:? "LIGHTHOUSE ADVENTURE":?:?5105HTAB 3:? "Like everyone else, you've    listened to the rumours about"5110? " the old smugglers hideout      somewhere on the peninsula"5115? " but,unlike everyone else,  LIN 35, 36 AT 204023REM                   ground4024COLOR =13:HLIN 0, 19 AT 364025HLIN 0, 21 AT 37:HLIN 0, 22 AT 38:HLIN 0, 22 AT 394026HLIN 12, 19 AT 35:COLOR =0:PLOT 13, 36:PLOT 12, 37:PLOT 18, 37:PLOT 20, 384027PLOT 15, 394028REM                   house4029COLOR =15:FOR r=31 TO 354030HLIN 2, 6 AT r:NEXT4031COLOR =0:VLIN 33, 34 AT 3:VLIN 34, 35 AT 54032HLIN 4, 6 AT 27:HLIN 3, 6 AT 28:HLIN 2, 6 AT 29:HLIN 1, 6 AT 304033REM                   lighthouse4034PLOT 9, 5:HLIN 8, 10 AT 6:HLIN 7, 11 AT reviously saved game,":? " enter LOAD":?:?5205DIM d$(6), v$(21), v(22), o$(42), o(42), r$(21), d(21, 6), r(21), ve(21), ob(42)5210 l=1: fi=0: g=0: sc=10005215POKE 16149, 255:POKE 16150, 2555220FOR x=1 TO 21:READ r$(x):NEXT:FOR x=1 TO 42:READ o$(x):NEXT:FOR x=1 TO 21:READ v$(x):NEXT5230FOR x=1 TO 215240FOR y=1 TO 65250READ d(x, y)5260NEXT y5270NEXT x5280FOR x=1 TO 6:READ d$(x):NEXT5290FOR x=1 TO 42:READ o(x):NEXT5750VTAB 23:? "    press <s> to continue"5760IF PEEK(64885)<>13 THEN POKE 64885, 13:,4,9,9,0,0,8,10,0,8,11,0,0,0,7,13,13,12,0,0,12,12,12,0,14,15,16,17,0,0,21,6,0,0,6,5,0,0,0,0,0,0 7000REM       hgr lighthouse7002IF ta<50 THEN  sc=INT(sc/100)7005HGR:HCOLOR =37010HPLOT 135, 150 TO 13, 150 TO 20, 135 TO 35, 125 TO 35, 120 TO 40, 120 TO 60, 125 TO 80, 135 TO 90, 125 TO 105, 1207015HPLOT 105, 120 TO 120, 1207020HPLOT  TO 115, 130 TO 135, 150:REM        rocks 7030HPLOT 60, 125 TO 90, 125:HPLOT 90, 125 TO 80, 40 TO 85, 40 TO 85, 35:HPLOT 85, 35 TO 80, 357032HPLOT 80, 35 TO 80, 22:HPLOT 80 ROOM,IN THE STORE ROOM,IN A METAL STORAGE      CABINET6025DATA         IN AN ENORMOUS VAULTED  CHAMBER,IN A SMALL PASSAGEWAY,ON A NARROW PATH-TO THE  WEST I SEE THE LAGOON 6030DATA         IN A LARGE ROOM,ON THE LAGOON,IN THE MIDDLE OF THE    LAGOON,ON THE LAGOON6035DATA         ON A WIDE BEACH-TO THE  EAST I SEE A LAGOON    6040DATA         ROCKS,PIECE OF PAPER,GUARD-HE WON'T LET ME PASS,ROPE CONNECTED TO THE WALL,CUP,BUTTON 6045DATA         FIREPLACE,MAPS,PIRATES LOG,DEAD SMUGGLER,CLOSED COFFIN,COFF05:REM        lowest window7080HPLOT 75, 95 TO 75, 85:HPLOT 75, 85 TO 80, 85:HPLOT 80, 85 TO 80, 95:HPLOT 80, 95 TO 75, 95:REM        secnd lowest windo7090HPLOT 55, 75 TO 55, 65:HPLOT 55, 65 TO 60, 65:HPLOT 60, 65 TO 60, 75:HPLOT 60, 75 TO 55, 75:REM        third lowest window7100HPLOT 70, 60 TO 70, 50:HPLOT 70, 50 TO 75, 50:HPLOT 75, 50 TO 75, 60:HPLOT 75, 60 TO 70, 60:REM        highest window 7105ONERR  GOTO 90007110? CHR$(4); "bload alphabet,A28000"7120POKE 16766, 96:POKE 16767, 109:SCALE =1:ROT        FILL,SHOOT,CUT     6070DATA         LOAD,PUT,PLAY,SAIL,STAB,SAY 6075DATA         3,2,2,2,0,0,2,2,2,1,0,0,0,1,0,0,4,6,0,0,0,0,5,3,0,0,0,0,0,4,0,0,06077DATA         0,3,0,0,9,12,8,0    6080DATA         0,0,0,7,0,0,0,7,0,0,0,0,0,9,0,11,0,0,0,0,0,0,10,0,06085DATA         0,0,0,7,0,0,0,11,0,0,0,0,15,0,0,0,0,0,0,14,0,16,0,0,0,8,15,0,0,0,06087DATA         16,0,0,0,0,0,0,17,19,0,0,0,0,18,0,0,0,0,0,196090DATA         21,0,0,0,0,20,0,0,0 6095DATA         NORTH,SOUTH,EAST,WEST,UP,DOWN6100DATA         1RETURN5770 r=RND(1):GOTO 57606000DATA              ON A ROCKY PENINSULA -  TO THE NORTH I SEE AN OLD      LIGHTHOUSE,   ON A ROCKY PENINSULA6005DATA         ON THE GROUND FLOOR OF  THE LIGHTHOUSE,IN THE BEDROOM6010DATA         AT THE TOP OF THE       LIGHTHOUSE- I SEE THE ROCKS    DIRECTLY BELOW,IN THE GENERATOR ROOM6015DATA              IN A LONG CORRIDOR      CARVED OUT OF THE ROCK6016DATA              IN A LARGE DINING HALL,IN THE GUARD ROOM,IN THE CHART ROOM6020DATA               IN THE CAPTAIN'S, 22 TO 83, 22:HPLOT 83, 22 TO 65, 107035HPLOT  TO 47, 22 TO 50, 22:HPLOT 50, 22 TO 50, 35 TO 45, 35 TO 45, 40 TO 50, 407040HPLOT 50, 40 TO 40, 120:HPLOT 40, 120 TO 60, 125:REM        lighthouse outline7050HPLOT 50, 22 TO 83, 22:HPLOT 50, 35 TO 80, 35:HPLOT 50, 40 TO 80, 40:REM        horiz lines-litehouse 7060HPLOT 75, 125 TO 75, 115:HPLOT 75, 115 TO 80, 115:HPLOT 80, 115 TO 80, 125:REM        bottom door 7070HPLOT 50, 105 TO 50, 95:HPLOT 50, 95 TO 55, 95:HPLOT 55, 95 TO 55, 105:HPLOT 55, 105 TO 50, 1IN,SKELETON,KNOB,LANTERN,RING (IT LOOKS MAGIC) 6047DATA         BOTTLE  6050DATA        TOOLBOX,OIL,NOTE,WEAPON CABINET,MUSKET,DAGGER,BULLETS,TREASURE CHEST,FLUTE,DOOR TO THE NORTH6053DATA         IT'S TOO DARK TO SEE6055DATA         BOAT,A HUGE SEA SERPENT,DOLLY,GENERATOR,PANEL,SWITCH,HOLE IN WALL,OPENING IN WALL6060DATA         CORRIDOR LEADING DOWN,PASSAGE LEADING UP,PULLEY SYSTEM,GOLD BULLION,FLINT,MARPLE 6065DATA         GET,DROP,EXAMINE,READ,PULL,PUSH,SEARCH,OPEN,LIGHT,WEAR,DRINK,POUR6067DATA  =07125 st$="..............................": ht=1: vt=1:HCOLOR =8:GOSUB 407128 st$="MWMWMWMWMWMWMWMWMWMWMWMWMWMWMW": ht=1: vt=19:HCOLOR =6:GOSUB 407130 st$="LIGHTHOUSE": ht=17: vt=1:HCOLOR =5:GOSUB 407140 st$="SCOREBOARD": vt=2: ht=17:HCOLOR =5:GOSUB 407145HCOLOR =87150GOSUB 30007200IF ls=1 THEN ? "SORRY "; na$:? "YOUR SCORE WAS ONLY "; sc7210FOR ti=1 TO 57220 ht=15: vt=6+ti: st$=b$(ti):GOSUB 40: ht=30: vt=6+ti: st$=STR$(b(ti)):GOSUB 407230NEXT ti7232? CHR$(4); "open lightscore"7240? CHR$(4); "wےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےM BEFORE PROCEEDING"9010GOTO 659999CLRERR:END=1: vt=1:HCOLOR =8:GOSUB 407128 st$="MWMWMWMWMWMWMWMWMWMWMWMWMWMWMW": ht=1: vt=19:HCOLOR =6:GOSUB 407130 st$="LIGHTHOUSE": ht=17: vt=1:HCOLOR =5:GOSUB 407140 st$="SCOREBOARD": vt=2: ht=17:HCOLOR =5:GOSUB 407145HCOLOR =87150GOSUB 30007200IF ls=1 THEN ? "SORRY "; na$:? "YOUR SCORE WAS ONLY "; sc7210FOR ti=1 TO 57220 ht=15: vt=6+ti: st$=b$(ti):GOSUB 40: ht=30: vt=6+ti: st$=STR$(b(ti)):GOSUB 407230NEXT ti7232? CHR$(4); "open lightscore"7240? CHR$(4); "w? CHR$(4); "close lightscore"alphasortAHکalphabetATL4scoremakerARûmusicdataATGManySoundsAZڑHGRtextdemA\نW654AS LEFT]660AS LEFT^%BLOCKS LEFT_Aےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےrite lightscore"7250FOR i=1 TO 57252? b(i)7254? b$(i)7256NEXT i7260HTAB 1:? CHR$(4); "CLOSE lightscore"7265? "     PRESS <Y> TO REPLAY"7268ONERR  GOTO 99997270 bl=17280 x=60: y=23: z=347290HPLOT x, y TO x, z TO x+1, z: x=x+1:HPLOT x, z TO x, y TO x+1, y: x=x+17300IF x>70 THEN  bl=bl+1:IF bl/2=INT(bl/2) THEN HCOLOR =4:GOTO 72807310IF x>70 THEN HCOLOR =8:FOR m=1 TO 100:NEXT m:GOTO 72807315IF PEEK(64885)=89 THEN CLEAR:RUN7320GOTO 72909000CLRERR:TEXT:VTAB 5:? "ACCESS ERROR--PLEASE CHECK":? "SYSTE2028TOPSCORE2024WONDERBOB1012BOBSBEST1010ZMAN1005ROBERTor lightscore"; a$18IF a$="2" THEN 12020 d$=CHR$(4)22 d1=0: d2=0: d3=0: d4=0: d5=024 d1$="*****": d2$="*****": d3$="*****": d4$="*****": d5$="*****"30? d$; "open score"40? d$; "write score"50? d1:? d1$60? d2:? d2$70? d3:? d3$80? d4:? d4$90? d5:? d5$100? d$; "close score"115END120FOR i=1 TO 5: d(i)=0: d$(i)="*****":NEXT130? CHR$(4); "open lightscore"140? CHR$(4); "write lightscore"150FOR i=1 TO 5160? d(i):? d$(i)170NEXT i180rite lightscore"7250FOR i=1 TO 57252? b(i)7254? b$(i)7256NEXT i7260HTAB 1:? CHR$(4); "CLOSE lightscore"7265? "     PRESS <Y> TO REPLAY"7268ONERR  GOTO 99997270 bl=17280 x=60: y=23: z=347290HPLOT x, y TO x, z TO x+1, z: x=x+1:HPLOT x, z TO x, y TO x+1, y: x=x+17300IF x>70 THEN  bl=bl+1:IF bl/2=INT(bl/2) THEN HCOLOR =4:GOTO 72807310IF x>70 THEN HCOLOR =8:FOR m=1 TO 100:NEXT m:GOTO 72807315IF PEEK(64885)=89 THEN CLEAR:RUN7320GOTO 72909000CLRERR:TEXT:VTAB 5:? "ACCESS ERROR--PLEASE CHECK":? "SYSTEےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےے14,17,18,19,20,216002DATA      22,23,25,31,34,35,36,38,39,41 6003DATA      42,43,48,55,56,57,61,62,63,68,69,70,71,726100DATA     186101DATA      1,2,6,7,11,15,20,25,316102DATA      34,41,44,48,54,58,61,64,686200DATA           186201DATA      1,3,5,7,10,16,20,25,316202DATA      34,41,45,48,53,59,61,65,686300DATA      176301DATA      1,4,7,10,16,20,25,31,34,416302DATA      45,48,53,59,61,65,68  6400DATA      166401DATA      1,7,10,16,20,25,31,34 6402DATA      41,44,48,53,59,61,65,68 6500DATA   5LOMEM :2805010REM     :MOTHERLODE! All Rights Reserved-- by Bob Zimmerman,22607 SE 322,Kent,Washington 98042-- 206-886-1167:3-31-8520ONERR  GOTO 2000030 p(0)=58: p(1)=255: p(2)=p(1): p(3)=50: p(4)=117: p(5)=253: p(6)=20140FOR m=0 TO 6:POKE 28000+m, p(m):NEXT m:POKE 461, 791900HGR:HCOLOR =32000FOR row=1 TO 121 STEP 1202005FOR column=20 TO 201 STEP 362010GOSUB 20202012 x=x+1:IF x=4 THEN  x=52013HCOLOR =x2014NEXT column:NEXT row2015GOTO 40502020READ c1, r1, c2, r22023 r1=r1+row2024 c1=c1+column6,57,61,62,63,68,69,70,71,72 7000TEXT:GOSUB 90007005? "    MOTHERLODE INTRODUCTION   ":?7010? "You are beginning a two-part   adventure into the frontier    town of MOTHERLODE"7015?7020? "The town is built around the   site of the MOTHERLODE MINE":?7030? "You begin in the center of townwith no money or posessions!  ":?7035? "You must find a way to earn"7040? "money, gather supplies and     discover a way to enter the    MOTHERLODE MINE"7050GOSUB 100007055? "    MOTHERLODE INTRODUCTION  ":?7060?:?                shovel4120DATA      35,35,34,36,9,11,3,17,5,13,7,10,11,6,13,5,16,4,10,10,35,35,0,0,0,04130REM                   pick5020DIM a(10, 72): x=25065READ m:IF m<>999 THEN 50655070FOR i=1 TO 105075READ q5080FOR j=1 TO q5090READ col5100 a(i, col)=15110NEXT j5130NEXT i5140HCOLOR =85160FOR row=1 TO 105170FOR column=1 TO 725185IF a(row, column)=1 THEN HPLOT column+94, row+715190NEXT column5200NEXT row5220FOR dl=1 TO 2000:NEXT dl:GOTO 70006000DATA      999,34  6001DATA      1,7,12,13,ےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےے   266501DATA      1,7,10,16,20,25,26,27,28,29,30,31,34 6502DATA      35,36,41,42,43,48,53,59,61,65,68,69,706600DATA      166601DATA      1,7,10,16,20,25,31,346602DATA      41,44,48,53,59,61,65,686700DATA      166701DATA      1,7,10,16,20,25,31,34     6702DATA      41,45,48,53,59,61,65,686800DATA      166801DATA      1,7,11,15,20,25,31,34 6802DATA      41,46,48,54,58,61,64,686900DATA      316901DATA      1,7,12,13,14,20,25,31,34,35 6902DATA      36,37,38,41,46,48,49,50,51,536903DATA      55,52025 r2=r2+row2026 c2=c2+column2030HPLOT c1, r1 TO c2, r22035 c1=c2: r1=r22037READ c2, r2:IF c2=0 THEN  times=times+12038IF times=2 THEN 40002039IF c2=0 THEN 20202040GOTO 20254000RESTORE: times=04010RETURN4050FOR column=20 TO 201 STEP 1804060FOR row=40 TO 121 STEP 404070GOSUB 20204073 x=x+1:IF x=4 THEN  x=54074IF x=16 THEN  x=14075HCOLOR =x4080NEXT row:NEXT column4090GOTO 50204100DATA      6,36,5,35,27,13,23,9,26,6,27,5,30,4,32,4,35,5,36,6,37,9,36,12,35,14,32,17,28,14,6,36,0,0 4110REM    "During the second part of this adventure you will use the     supplies gathered in the first"7070? "part to explore the MINE"7080?:? "Your goal will be to discover  the MOTHERLODE GOLD and return successfully out of the mine"7090?:? "It is important to note that   your chances of completing the adventure are increased if you"7095? "bring as many supplies as      possible with you into the mine"7100GOSUB 100007200? "     POSSIBLE COMMANDS       ":?7210? " quit   work   dig   help  "7220? " buy    tےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےے offered as     'FREEWARE'.  You may copy it,  upload it, and pass it around  "; 9010? "as long as this message is not removed or altered.":?9020? "'FREEWARE' is simply           'Free Software'.  If you have  found this game to be enjoyable"; 9030? "participate in the freeware    concept by rewarding the authorwith a payment equal to the    "; 9040? "value you have received.":?9050? "Your participation will        encourage development of other new and fun games!":GOSUB 10000:TEXT9060VTAB 5:? "MOTHER:IF c$(i)<>"" THEN  wo=wo+ASC(c$(i))192NEXT i195POKE 17115, 27:POKE 17059, 11200 sc=ti-ta+wo:IF sc<0 THEN  sc=0201 gh=sc205? d$; "open score"206? d$; "read score"207INPUT ""; d1:INPUT ""; d1$208INPUT ""; d2:INPUT ""; d2$209INPUT ""; d3:INPUT ""; d3$210INPUT ""; d4:INPUT ""; d4$211INPUT ""; d5:INPUT ""; d5$212HOME215GOSUB 2800218TEXT:? q$:? q$:?:? TAB(5); m$:?:? q$220VTAB 10:? TAB(5); d1, d1$:VTAB 11:? TAB(5); d2, d2$:VTAB 12:? TAB(5); d3, d3$222VTAB 13:? TAB(5); d4, d4$:VTAB 14:? TAB(5); d5,ےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےake   get   talk  "7230? " drink  read   use   look  "7240? " push   kick   hit   fight "7250? " open   go     run   walk  "7260? " north  south  east  west  "7300? "..............................."7310? " Typical commands are:":?7320? "     go north":? "     talk Brian":? "     drink whiskey"7330? "     buy shovel":?7340? " Please use lower-case"7350VTAB 21:? "Please Wait!  Loading Adventure"8000 d$=CHR$(4)8010? d$; "run motherone"8999END9000?:? "          MOTHERLODE":?9005? "This program is5LOMEM :281008FOR i=1 TO 100:POKE 28000+i, 0:NEXT i10REM        MOTHERLODE Part 1, by  Bob Zimmerman,22607 SE 322,    Kent,Washington 98042, ALL RIGHTS RESERVED  04-05-8512POKE 17115, 19:POKE 17059, 315GOTO 3025VTAB 23:HTAB 2:? "  PRESS ANY KEY TO CONTINUE!"26 z=RND(1):IF PEEK(64885)<>13 THEN RETURN27GOTO 2630GOSUB 451040HOME:?45GOSUB 44050GOSUB 260110GOTO 4210170? "YOUR TIME IS UP "; na$:GOSUB 5440190 d$=CHR$(4): m$="MOTHERLODE SCOREBOARD": q$="******************************"191FOR i=1 TO 14LODE was developed and   programmed by:":?9065? TAB(5); "Bob Zimmerman":? TAB(5); "22607 SE 322":? TAB(5); "Kent, Washington 98042":?9070? "     All Rights Reserved":GOSUB 10000:TEXT:RETURN10000VTAB 22:? "    PRESS <s> TO CONTINUE"10010IF PEEK(64885)=115 THEN TEXT: zz=0:CALL 28000:RETURN10015IF PEEK(64885)=83 THEN VTAB 22:? "                              ":VTAB 22:? "please shift to lower case <s>"10020 zz=zz+1:IF zz=11000 THEN RESTORE:CLEAR:GOTO 1010030GOTO 1001020000RUN:ONERR  GOTO 20000:CONTm is d5$:VTAB 18:? q$223IF gh<d5 THEN VTAB 20:? "YOUR SCORE WAS "; gh:GOSUB 5440:VTAB 20:? "                              "224VTAB 20:? "     THANK YOU FOR PLAYING    ":? "          MOTHERLODE":? q$225? d$; "write score"226? d1:? d1$227? d2:? d2$228? d3:? d3$229? d4:? d4$230? d5:? d5$235? d$; "close score"240POKE 17115, 241:POKE 17059, 0:END260IF dollars>0 THEN ?:? "CASH=$"; INT(dollars)265IF ti<=0 THEN  ti=0280?:? "TIME LEFT="; time:?:RETURN300?:? "YOU HAVE:":?305IF h=0 THEN VTAB 8:HTAB 6:? c$(0g.  Ed asks, "; na$:? "Do you want to play?"1015INPUT an$: an$=LEFT$(an$, 1):IF an$="y" OR an$="Y" THEN GOSUB 60001020? "The other games continue.": a(9, 2)=1:RETURN1070? "You give Ed a lavish tip and   stumble out of the saloon.": do=INT(do-RND(1)*50+1)1090IF dollars<0 THEN  dollars=01095? "You wake up after several hourswith a terrible headache": time=time-4: dr=01100RETURN1140? "You wake up in a small dimly-  lit room. The bed smells musty.A quick check of your pockets "1160? "tells you that you  "Ed looks your way, smiles, and says 'Hi "; name$:? "Here's whiskey....on the house!": a(1, 1)=6: sa=2:RETURN635? "A miner at the bar points your way and smirks!"649RETURN650? "PROSPECT HILL":?660? "You stand atop a hill over-    looking the MOTHERLODE MINE.   There is evidence of recent"665? "prospect digs in the area":IF bx$<>"" THEN ? bx$670RETURN710IF qr=1 THEN GOSUB 7000: qr=0:RETURN712IF p>=14 THEN ? "MOTHERLODE STORE":VTAB 6:HTAB 5:FLASH:? "SOLD OUT!":NORMAL:?:?:?:?:RETURN715? "THE MOTHERLOEN ? "Finally your time is up and    Sheriff Wildeye lets you go."1245 s5=1: dr=01250RETURN1260? "ED'S SALOON":?1270? "While inquiring about work you meet Sheriff Wildeye.  He says the saloon could use your help."1275? "You go with him through town   to the SALOON."1280? "At the saloon, You make a deal with Ed to wash glasses and    stock shelves."1282IF s9=1 THEN RETURN1285 pay=INT(RND(1)*10+1)1290? "Knowing you, Ed says he'll pay you $"; pay; " per hour."1295 wh=INT(RND(1)*5+1)1297 time=time-whtender mumbles that     you're just a pansy."860 a(1, 1)=7: a(6, 2)=1:RETURN880? "ED'S SALOON":?890? "The saloon is empty.           A notice reads...'Missing:     elevator key--thought lost on"900? "PROSPECT HILL.  If found,      return to Ed for $50 reward!"910 a(1, 1)=9: a(1, 3)=8: a(7, 2)=1:RETURN940? "PROSPECT HILL":?950? "The area looks prime for       prospecting.  Maybe you should dig?": a(8, 4)=1:IF bx$<>"" THEN ? bx$960RETURN1000? "ED'S SALOON":?1010? "There are several card games   goin):GOSUB 3000:RETURN309HTAB 2310FOR j=1 TO 19320IF c$(j)<>"" THEN ? c$(j), 340NEXT j350?420GOSUB 3000:RETURN440ON ro GOSUB 550, 600, 650, 710, 760, 810, 880, 940, 1000, 1070, 1140, 1190, 1260, 1330, 1370, 1440, 1530480RETURN550? "MIDDLE OF TOWN":?560? "You are just north of the      MOTHERLODE MINE entrance.  A   well-worn path leads up a hill to the east":RETURN600? "ED'S SALOON":?610? "You've just entered EDS SALOON.The bartender is talking to    several crusty miners."620IF sa>1 THEN 635630?spent your  last dime on drinks.": do=0: dr=01170RETURN1190? "You were so drunk that you     started fighting with Ted.  Yousmashed up the saloon.":IF s5=1 THEN 12401205 scrap=INT(RND(1)*2500+1)1207IF dollars-scrap<0 THEN  jailhrs=INT((scrap-dollars)/1000)1210? "Sheriff Wildeye arrived and    arrested you. You must pay     $"; scrap; " for your actions"1220IF jailhrs>0 THEN ? "Since you don't have enough    money to pay,  you must spend  "; ja; " hrs in jail"1230 time=time-jailhrs1240IF jailhrs>0 THDE STORE":?720? "There are provisions that are  for sale to prospectors.":?730? "You see a list of provisions":GOSUB 3000:GOSUB 7000:RETURN760? "MOTHERLODE ELEVATOR":?770? "This is the elevator that leadsdown to the MOTHERLODE MINE."780? "There is a notice posted above the control box."805RETURN810? "ED'S SALOON":?820? "The bartender is playing cards with a couple of miners.  He   says, 'Want to play cards?"830INPUT an$: an$=LEFT$(an$, 1):IF an$="y" OR an$="Y" THEN GOSUB 6000:GOTO 860850? "The bar1300? "You work for "; wh; " hours.": dollars=dollars+pay*wh: s9=11310RETURN1330? "MOTHERLODE STORE":?1335? "Donna, the store manager, says she could use help cleaning    windows and stocking shelves":IF s8=1 THEN RETURN1340 pay=INT(RND(1)*5+1)1345 wh=INT(RND(1)*3+1)1350? "You help her for ":? wh; " hours at $"; pay; " per hour": dollars=pay*wh+do1355 time=time-wh: s8=11360RETURN1370? "MOTHERLODE ELEVATOR":?:IF s7=1 GOTO 14251385? "The store manager introduces   her son Brian who was the      Mot20:GOSUB 3900: a=9: b=11: d=12:GOSUB 3900: a=13: b=15:GOSUB 39003120 a=17: b=23:GOSUB 3900: a=25: b=27: d=8:GOSUB 3900: a=29: b=31:GOSUB 3900: a=33: b=35: d=12:GOSUB 39003130 a=29: b=31: c=10:GOSUB 3900: a=25: b=27:GOSUB 3900: c=14: d=16:GOSUB 3900: a=29: b=31:GOSUB 39003140 a=33: b=35:GOSUB 3900: c=18: d=20:GOSUB 3900: a=29: b=31:GOSUB 3900: a=25: b=27:GOSUB 39003150 a=9: b=11: c=14: d=16:GOSUB 3900: a=19: b=21:GOSUB 3900: a=9: b=15: c=18: d=20:GOSUB 39003160 a=17: b=23:GOSUB 3900: a=5: b=12: c=23: d=nd   says he needs help at the jail.":IF s2=1 THEN 14701460 pay=INT(RND(1)*3+1): wh=INT(RND(1)*12+1)1465 time=time-wh1470? "You spend "; wh; " hours  ":? "cleaning the bathrooms. Deputy John J wouldn't even lend you ahand all day."1480? "Sheriff Wildeye returns just asyou finish and hands Deputy    John J $"; pay*wh; " for your pay."1485IF s2=1 THEN RETURN1490 sl=INT(pay*wh/4):IF sl=0 THEN 15051500? "However, you notice that the   Deputy takes $"; sl:? "before giving you your pay"1505 do=do+(pa*wh-sOT b, 20:PLOT b, 26:PLOT b, 30:PLOT b, 343220 b=19:PLOT b, 16:PLOT b, 28:PLOT b, 32: b=21:PLOT b, 20:PLOT b, 34: b=27:PLOT b, 13:VLIN 22, 24 AT b:PLOT b, 28:PLOT b, 323230 b=29:PLOT b, 16:PLOT b, 26:PLOT b, 30:PLOT b, 34: b=31:PLOT b, 14:PLOT b, 18:PLOT b, 24:PLOT b, 28:PLOT b, 32:PLOT 25, 343235? "GOOD JOB!   Loading Adventure!"3240? CHR$(4); "run motherII"3900 j6=INT(RND(1)*15+1):IF j6=4 THEN 39003910COLOR =j6:FOR r=a TO b:HLIN c, d AT r:NEXT r:RETURN4210 ti=ti-1:IF ti<=0 THEN  ti=0:GOSUB 5440:HOME 'RUN'"2750VTAB 21:? q$:END2800IF sc<=d5 THEN RETURN2810IF sc>d4 THEN 28302820 d5=sc: d5$=na$:RETURN2830IF sc>d3 THEN 28502840 d9=d4: d9$=d4$: d4=sc: d4$=na$: sc=d9: na$=d9$:GOTO 28202850IF sc>d2 THEN 28702860 d8=d3: d8$=d3$: d3=sc: d3$=na$: sc=d8: na$=d8$:GOTO 28402870IF sc>d1 THEN  d6=d1: d6$=d1$: d1=sc: d1$=na$: sc=d6: na$=d6$2880 d7=d2: d7$=d2$: d2=sc: d2$=na$: sc=d7: na$=d7$:GOTO 28603000VTAB 22:? "   press any key to continue  ":GET t$:RETURN3100REM    graphic3105GR3110 a=5: b=7: c=6: d=herlode mechanic. He needs "1390? "help fixing the MINE elevator   "1400 pay=INT(RND(1)*7+1): wh=INT(RND(1)*8+1)1410? "You work for "; wh; " hours":? "trying to fix the switching-   mechanism on the elevator"1415 time=time-wh1420? "You didn't make much headway...so Brian pays you "; pay*wh; " dollars":? "for your efforts": do=do+pay*wh1425IF s7=1 THEN ? "The switching mechanism looks  like it would be difficult to  over-ride"1430 s7=1:RETURN1440? "MOTHERLODE JAIL":?1450? "Sheriff Wildeye stops by a28:GOSUB 3900: a=14: b=17: c=25:GOSUB 39003170 a=19: b=21: c=22:GOSUB 3900: a=25: b=27:GOSUB 3900: a=29: b=35: d=24:GOSUB 39003180 a=33: c=26: d=28:GOSUB 3900: a=29: b=31:GOSUB 3900: a=33: b=35: c=30: d=32:GOSUB 3900: a=29: b=31:GOSUB 39003190 a=25: b=27:GOSUB 3900: a=19: b=23:GOSUB 3900: a=15: b=17:GOSUB 3900: a=5: b=13:GOSUB 39003200 b=9:PLOT b, 8:PLOT b, 12:PLOT b, 16:PLOT b, 26:PLOT b, 30: b=11:PLOT b, 24:PLOT b, 28:PLOT b, 323210 b=13:PLOT b, 10:PLOT b, 20:PLOT b, 26:PLOT b, 30: b=17:PLOT b, 10:PLl)1510 s2=1:RETURN1530? "ELEVATOR--GOING DOWN!":?1540? "You hear an ancient mechanism  grind as you slowly descend    into the Motherlode mine."1550? "You feel elated that you were  able to get this far....but    aprehensive about what is to   come"1560?:? "This is the end of the first   half of ....MOTHERLODE":GOTO 110002700TEXT:? q$2720VTAB 5:? "     THANK YOU FOR PLAYING"2730HTAB 11:? "MOTHERLODE "2740VTAB 14:? "This is the end of the first   half of MOTHERLODE.  To replay this game, simply type:GOTO 1704215 zm=INT(RND(1)*3+1):ON zm GOTO 4220, 4225, 42304220? "What now,"; na$; "?":GOTO 42354225? "Next command please!":GOTO 42354230? "OK,"; na$; " now what?"4235 x$=" ": y$=" ": z$=" "4238 qd=FRE(0)4240INPUT z$4242IF z$="" THEN 42404245 l=LEN(z$)4246IF l<7 THEN  z$=z$+" ":GOTO 42454247 x$=LEFT$(z$, 3)4250IF x$="pla" THEN GOTO 404253IF x$="loa" OR x$="sav" THEN GOTO 130004254IF x$="fuc" OR x$="shi" OR x$="rap" OR z$="hell" OR x$="dam" OR x$="scr" THEN ? "Watch your language!":GOTO 4210OR i=0 TO 44770FOR j=0 TO 44780FOR k=1 TO 34790 dig(i, j, k)=INT(RND(1)*47+1)4800NEXT k:NEXT j:NEXT i4810 q=INT(RND(1)*4+1)4820 r=INT(RND(1)*4+1)4830 t=INT(RND(1)*3+1)4840 dig(q, r, t)=504845GOSUB 25:TEXT4899RETURN4900DATA    2,5,3,4,0,1,0,0,0,0,0,1,0,0,1,0,1,0,0,0 5000DATA    "cigarettes","flashlight","matches","bucket","firstaid-kit","batteries" ,"shovel","rope","hard-hat" 5010DATA    "lucky-charm","cutting-torch","fuse","candle","rotenone"5050DATA    15,25,3,38,90,15  ,25,60,40,3,2300,5,2,5 42654269IF LEFT$(y$, 1)=" " THEN ? "What do you mean "; z$:GOTO 42404271IF y$="" THEN ? z$; " doesn't make sense":GOTO 42154273 ta=ta+14275IF x$="go " OR x$="wal" OR x$="run" OR x$="cli" OR x$="cra" OR x$="mov" THEN GOTO 80004280IF x$="buy" OR x$="pur" THEN GOTO 84004290IF x$="get" OR x$="gra" OR x$="tak" THEN GOTO 87004300IF x$="tal" OR x$="spe" OR x$="yel" THEN GOTO 89004310IF x$="dri" OR x$="sip" OR x$="swa" THEN GOTO 91004320IF x$="ope" THEN GOTO 93004330IF x$="rea" THEN GOTO 93504340IF x$="THEN ? "No more help available": help=05390GOTO 42155430FOR z=1 TO 999:NEXT z:RETURN5440FOR z=1 TO 3000:NEXT z:RETURN6000IF do=0 THEN ? "FOOL!":? "YOU CAN'T PLAY WITHOUT CASH!":RETURN6010HOME: ch=0: csh=06020IF ro=6 THEN ? "You walk over to the table.    Ed introduces his frinds Will  and Ted."6040 ch=INT(RND(1)*50+1)6045IF INT(RND(1)*10)>5 THEN 62006050? "After an hour of play you've   won $"; ch; " from the three.":? "Ed says you're pretty sharp!"6055 dollars=dollars+ch6060? "Ted says, 'Want to0DIM dig(5, 5, 3), a(16, 4), pv$(20), c$(20), value(20)4540 flag=0: ro=1: do=0: ba=0: ti=200: ta=0: h=0: c$(0)="ABSOLUTELY NOTHING!"4550 d$=CHR$(4)4620REM                                          room directions4630FOR b=1 TO 54640FOR c=1 TO 44650READ a(b, c)4660NEXT c:NEXT b4680REM                                           allot provisions4690FOR j=1 TO 144720READ pv$(j)4725NEXT j4730FOR j=1 TO 144735READ value(j)4740NEXT j4750REM                                 -- set up dig treasures4760F4255IF x$="inv" THEN TEXT:GOSUB 300:GOTO 404258IF x$="qui" THEN ? "OK "; name$; " YOU QUIT":GOSUB 5430:GOTO 1904259IF (x$="wor" OR x$="app") AND (ro=4 OR ro=14) THEN GOTO 92004260IF (x$="wor" OR x$="app") AND ro<>4 THEN ? "NO MORE HELP NEEDED HERE--APPLYAT THE STORE":GOTO 42154261IF x$="dig" THEN GOTO 82004262IF x$="hel" THEN GOTO 53004263IF x$="rob" OR x$="ste" THEN ? "THAT WOULD BE CHEATING!":GOTO 42104264 n=14265IF MID$(z$, n, 1)=" " THEN  y$=MID$(z$, n+1, 3):GOTO 42714268IF n<l THEN  n=n+1:GOTO55300 help=help+15320IF help=1 THEN ? "To make money, apply for 'work'at the store"5325IF help=2 THEN ? "A shovel helps you to dig on   PROSPECT HILL"5330IF help=3 THEN ? "Have you talked to Brian?  Who is Brian? Apply for work some  more"5340IF help=4 THEN ? "Have you read the article aboutthe Motherlode Mine?"5350IF help=5 THEN ? "You need to dig in the right   place on PROSPECT HILL"5360IF help=6 THEN ? "Try "; q; " "; r; " "; t5370IF help=7 THEN ? "Read the notice in the elevator"5380IF help=8 loo" THEN GOTO 94004350IF x$="giv" OR x$="ret" THEN GOTO 95004370IF x$="use" OR x$="ins" THEN GOTO 96604380IF x$="pus" THEN GOTO 97004390IF x$="lig" THEN GOTO 97504400IF (x$="fig") OR (x$="hit") OR (x$="kic") OR (x$="sta") OR (x$="att") THEN GOTO 98504410IF x$="fin" THEN ? "YOU DO THE FINDING!":GOTO 42154490? "I don't know how to "; z$4509GOTO 42154510HOME:? "    WELCOME TO MOTHERLODE!    "4525VTAB 10:? TAB(9); "ENTER NAME":?:? TAB(8); :INPUT name$4526VTAB 10:? TAB(8); "THANK YOU "; na$:?:?:?453 play again?":INPUT ans$6075 an$=LEFT$(an$, 1):IF an$="y" OR an$="Y" THEN 61006080? "You smile.  It feels good to   win.": sa=sa+16090? "Ed says you'd be smart to try  prospecting on the hill.":RETURN6100 csh=INT(RND(1)*1000+1)6110IF (INT(RND(1)*10+1))>5 THEN 62006120? "You're playing seriously now.  But luck is with you!":?:? "YOU TAKE $"; csh:?:? "Ted and Will are livid!"6130? "You get the impression that    they think you should leave!"6150 do=do+cs:RETURN6200? "Unfortunately luck runs against y55?8370 treasure=dig(npace, wpace, depth)8371 dig(npace, wpace, depth)=0:?8372IF treasure=50 THEN GOTO 83908375FOR z=1 TO depth*35:? "..digging.."; :NEXT z:IF treasure=0 THEN 83958377?:?:?:?8380? "You find gold worth $"; treasure8382 dollars=dollars+treasure: treasure=08385GOTO 42158390? "You see a wooden box": bx$="There is a wooden box here":GOTO 42108395?:? "You dig...but find nothing":GOTO 42108400IF (ro=2 OR ro=6 OR ro=9) AND (y$="dri" OR y$="whi") AND (do>=5) THEN ? "Ed pours you a drink":G=0 THEN GOTO 81008050IF y$="nor" THEN  ro=a(ro, 1)8060IF y$="sou" THEN  ro=a(ro, 2)8070IF y$="eas" THEN  ro=a(ro, 3)8080IF y$="wes" THEN  ro=a(ro, 4)8085IF y$<>"nor" AND y$<>"sou" AND y$<>"eas" AND y$<>"wes" THEN GOTO 44908090GOTO 408100? "You can't go that way":GOTO 42158200IF c$(7)="" THEN ? "WHAT ARE YOU GOING TO DIG WITH...YOUR HANDS?":GOTO 42158205HOME:REM              dig routine8210IF ro=3 OR ro=8 THEN 83008220? "As you begin to dig..Sheriff   Wildeye walks up and says:     'Sorry, no prosO 42158605IF LEFT$(pv$(i), 3)="..." THEN ? "YOU ALREADY H  AVE THAT":GOTO 42158610 c$(i)=pv$(i): h=18612 dollars=dollars-value(i)8615 pv$(i)="..........": p=p+1: qr=18616 value(i)=08630GOTO 408700IF ro=4 THEN ? "HEY BUDDY....WE PAY FOR THINGS HERE":GOTO 42158720IF ro=2 OR ro=6 OR ro=9 AND y$="dri" THEN ? "You have it":GOTO 42108730IF (y$="Ed ") THEN ? "Sorry, Ed is using the outhouse":GOTO 42158740IF bx$<>"" AND (y$="woo" OR y$="box") AND bo<>1 THEN ? "GOT IT!": c$(15)="WOODEN BOX": box=1: bx$="":CTING INSTRUCTIONS"8310?:? "You stand in the SOUTH-EAST    corner of the prospecting area"8315? "Please give directions for     locating your claim:"8320?:INPUT "# PACES NORTH"; npace: npace=INT(npace)8330INPUT "# PACES  WEST"; wp: wp=INT(wp)8340INPUT "DEPTH: 1--shallow                     2--normal                      3--deep   "; de: de=INT(de)8350IF npace<0 OR npace>4 OR wpace<0 OR wpace>4 OR depth<1 OR depth>3 THEN  tr=0: de=1:GOTO 83758353IF dig(npace, wpace, depth)=0 THEN  depth=1:GOTO 837583ou."6220 dollars=dollars-(ch+cs):IF dollars<0 THEN  dollars=06225IF do=0 THEN ? "They clean you out!! ":GOTO 62306228? "You're left with only $"; do6230? "Ed drinks a glass of whiskey.  Ted and Will just smile."6240RETURN7000HOME:?:? TAB(2); "PROVISIONS":?7020FOR j=1 TO 14:? TAB(3); pv$(j); :HTAB 17:? "$"; value(j)7028NEXT j7100RETURN8000IF y$="nor" AND a(ro, 1)=0 THEN GOTO 81008020IF y$="sou" AND a(ro, 2)=0 THEN GOTO 81008030IF y$="eas" AND a(ro, 3)=0 THEN GOTO 81008040IF y$="wes" AND a(ro, 4)OTO 42108415IF (ro=2 OR ro=6 OR ro=9) AND (y$="dri" OR y$="whi") AND (do>=5) THEN  do=do-5:GOTO 42108418IF (ro=4 OR ro=3) AND (y$="whi" OR y$="dri") THEN GOTO 85908420IF ro=4 AND y$="pro" THEN ? "Please....be specific!":GOTO 42158440IF ro<>4 THEN GOTO 85908445GOSUB 84508447IF byit=1 THEN GOTO 86008449GOTO 85908450FOR i=1 TO 148455 b$=LEFT$(pv$(i), 3)8457IF y$=b$ THEN  byit=1:RETURN8459NEXT i8585RETURN8590? "You cannot buy that":GOTO 42158600IF do-va(i)<0 THEN ? "NOT ENOUGH MONEY TO BUY IT":GOTpecting here.'"8230 fine=INT(RND(1)*25+1): ba=ba+18236IF bad>1 THEN  fine=fine*bad8237IF bad>3 THEN 82708240? "He fines you $"; fine:? "Digging is allowed only on     prospect hill."8245IF dollars=0 THEN ? "But since you have no money,   He makes this a verbal warning."8250 do=do-fi:IF do<0 THEN  do=08255GOSUB 25:GOTO 408270? "Sheriff Wildeye catches you    AGAIN!  The Sheriff handcuffs  you and leads you away.":? "You're unqualified"; 8280? " for this   job":GOSUB 25:GOTO 1908300? TAB(2); "PROSPEGOTO 42108750IF y$="hel" THEN ? "YOU ARE ON YOUR OWN":GOTO 42158760IF y$="key" AND op=1 THEN ? "You have it": c$(16)="KEY": c$(15)="": key=1: op=2:GOTO 42108770IF y$="She" AND sh=0 THEN ? "You find him on PROSPECT HILL": sh=1:GOTO 42108775IF y$="She" AND sh=1 THEN ? "The Sheriff says, 'What ya want":GOTO 42108899? "You Can't":GOTO 42158900REM  --talk 8910IF ro=2 AND (y$="Ed" OR y$="bar") THEN ? "He says he lost a key...& talksabout some lost miners":GOTO 42108915IF ro=2 AND y$="min" THEN ? "They jus42109349? "You Can't!":GOTO 42159350HOME9360IF y$="not" AND ro=5 THEN ? "CAUTION--To  be operated by    mining personnel only":?9365IF y$="not" AND ro=5 THEN ? "INSTRUCTIONS:":?:? "1. Use key to unlock mechanism":? "2. Push green button to start"9370IF y$="not" AND ro=5 THEN ? "3. Push red button to stop":GOSUB 25:GOTO 409375IF y$="art" AND ro=15 THEN ? "It says,'MOTHERLODE MINERS ARE MISSING!  It is rumored that"9380IF y$="art" AND ro=15 THEN ? "a motherlode vein of gold has  been found, but the min HOME:? "He says that he must find a wayto get into the mine!"9010IF ro=15 AND y$="Bri" THEN ? "He shows you an article        about lost MOTHERLODE miners":GOTO 42109030IF ro=16 AND y$="Joh" THEN ? "He warns you to keep quiet     about the gold...":GOTO 42109099? "It doesn't help":GOTO 42159100IF y$="cof" THEN GOTO 91409106IF drink=0 THEN ? "The whiskey is some of the bestyou've ever had.": dr=dr+1:GOTO 42159107IF y$="rot" AND c$(14)<>"" THEN ? "You die of complications":GOSUB 5440:GOTO 1909108IF (yhing":GOTO 42159500REM                             --give routine--9510IF y$="key" AND (ro=2 OR ro=6 OR ro=9 OR ro=13) THEN ? "Ed takes the key...and gives you $50": dollars=dollars+509520IF y$="key" AND (ro=2 OR ro=6 OR ro=9 OR ro=13) THEN  c$(16)="": key=0:GOTO 42109549? "You Can't!":GOTO 42159660IF y$="key" AND key=1 AND ro=5 THEN ? "KEY INSERTED--ELEVATOR UNLOCKED": key=2:GOTO 42109670IF y$="sho" THEN ? "Say 'dig'":GOTO 42159699GOTO 97509700IF (y$="but" OR y$="gre" OR y$="upp") AND key=2 THEN HO? "You feel much better.":GOTO 42109145IF ro=2 AND drink=10 THEN GOTO 101009148IF dr>=5 THEN ? "Ed warns you not to drink any  more.  You're plastered.":GOTO 100009199? "You Can't!":GOTO 42159200 job=job+1:IF job=5 THEN  job=19220ON job GOTO 9230, 9240, 9250, 92609230 ro=13: a(13, 2)=1: s9=0:GOTO 409240 ro=14: a(14, 3)=1: s8=0:GOTO 409250 ro=15: a(15, 1)=1: s7=0:GOTO 409260 ro=16: a(16, 3)=1: s2=0:GOTO 409300IF (y$="box" OR y$="woo") AND bo=1 THEN ? "The box is open": op=1: c$(15)="open box":GOTO t sneer, chuckle--and  ignore you!":GOTO 42108940IF sheriff=1 AND (y$="she" OR y$="She") THEN ? "He says he's looking for the   elevator key":GOTO 42108950IF ro=6 AND y$="Ted" THEN ? "Ted says they found gold, but  can't get it out without a key":GOTO 42108960IF wi=0 AND y$="Wil" THEN ? "He says, 'IF you go into the   mine, take a light and smokes": wi=1:GOTO 42108990IF ro=14 AND y$="Don" THEN ? "She mentions that they need theelevator key to get into the   mine":GOTO 42109000IF ro=15 AND y$="Bri" THENers havedisappeared!'"9382?9385IF y$="art" AND ro=15 THEN ? "You also see some numbers      scrawled on the edges.":GOSUB 25:GOTO 409395IF y$="num" AND ro=15 THEN ? "You see the numbers: "; q; " "; r; " "; t:GOSUB 25:GOTO 409399? "It reveals nothing":GOTO 42159400IF (y$="box" OR y$="woo" OR y$="ins") AND (ro=3 OR ro=8) AND op=1 THEN ? "You see a tarnished key.":GOTO 42109410IF (y$="box" OR y$="woo" OR y$="ins") AND (ro=3 OR ro=8) AND op=2 THEN ? "It's Empty":GOTO 42109420GOTO 409450? "It reveals not$="whi" OR y$="dri") AND do<5 THEN ? "Hey, buddy, drinks cost $5":GOTO 42159109IF (ro<>2 AND ro<>6 AND ro<>9) THEN ? "You Can't!":GOTO 42159110IF (y$="whi" OR y$="dri") AND do>=5 THEN ? "YOU DOWN IT IN ONE GULP": dr=dr+1: do=do-59120IF dr=2 THEN ? "You feel light-headed": do=do-5:GOTO 42109125IF dr=3 THEN ? "Everything starts to sound     funny. WATCH YOUR DRINKING!": do=do-5:GOTO 42109130IF dr=4 THEN ? "You are getting drunk. Ed poursyou a cup of coffee.": do=do-5:GOTO 42109140IF y$="cof" THEN  dr=1:ME: ro=17:GOTO 409720IF y$="but" OR y$="gre" OR y$="upp" THEN ? "Nothing happens--apparently the mechanism is deactivated":GOTO 42159749? "It doesn't help":GOTO 42159750? "It would be silly to do that   when you don't NEED to":GOTO 42159850IF y$="Ed" THEN  y$="Ed "9860IF y$="Ed " AND (ro=2 OR ro=6 OR ro=9) THEN ? "You knock Ed out cold!":? "But his friends decide to"9870IF y$="Ed " AND (ro=2 OR ro=6 OR ro=9) THEN ? "teach you a lesson. They mush  your face!"9880IF y$="Ed " AND (ro=2 OR ro=6 OR ro=9) 13140FOR i=1 TO 19:? c$(i):NEXT i13150? d$; "close "; flname$:GOTO 4014000? d$; "read "; flname$14010INPUT ""; do:INPUT ""; ti:INPUT ""; ro:INPUT ""; op:INPUT ""; bo:INPUT ""; ke14020INPUT ""; ba:INPUT ""; dr:INPUT ""; na$:INPUT ""; q:INPUT ""; r:INPUT ""; t14025INPUT ""; p14030FOR i=1 TO 19:INPUT ""; c$(i):NEXT i14040? d$; "close "; flname$14050FOR i=1 TO 14:IF c$(i)<>"" THEN  pv$(i)="..........": va(i)=0: h=114060NEXT i14070IF c$(16)<>"" THEN  di(q, r, t)=014080GOTO 40 1. Data Drive 1":?:? "   a(9, 2)=12: a(12, 3)=110030GOTO 421010100HOME:? "You have had so much whiskey   that you pass out!  Apparently you are just a lush & no-good."10200? "Ed doesn't know what to do withyour carcass as you sprawl on  the floor."10300? "He finally calls the Sheriff   who sends YOU packing!":? "IT IS ALL OVER FOR YOU!":GOTO 19011000 d$=CHR$(4)11005FOR i=1 TO 1411010IF c$(i)="" THEN POKE 28050+i, 0:GOTO 1104011020POKE 28050+i, i11040NEXT i11050 r=INT(RND(1)*100)11060POKE 28065, r11065GOSUB 1200011070Fےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےے  2. Disk Drive 1"13010INPUT dn:IF dn<1 OR dn>2 THEN 1301013020IF dn=2 THEN  dn=513022HOME:VTAB 5:HTAB 5:? "Input filename for game":VTAB 10:HTAB 5:INPUT flname$13030HOME13050VTAB 5:? "Insert TAPE or DISK":?:? "Hit Store/Get when ready!":GET a$13100IF a$<>CHR$(147) THEN HOME:HTAB 8:FLASH:? "ACTION ABORTED":NORMAL:GOSUB 3000:GOTO 4013110? d$; "open "; flname$; " d"; dn13115IF x$="loa" THEN GOTO 1400013120? d$; "write "; flname$13130? do:? ti:? ro:? op:? bo:? ke:? ba:? dr:? na$13135? q:? r:? t:? pTHEN ? "You are laid up for 5 days": ti=ti-120:GOSUB 25:GOTO 409890IF y$="She" OR y$="she" THEN ? "The Sheriff clubs you on the   head!  You're laid up for five days!": ti=ti-120:GOTO 42109910IF (y$="Ted" OR y$="Wil") AND (ro=2 OR ro=6 OR ro=9) THEN ? "He breaks your arm. Lays you up for 2 days"9920IF (y$="Ted" OR y$="Wil") AND (ro=2 OR ro=6 OR ro=9) THEN  ti=ti-48:GOTO 42109949? "You Can't!":GOTO 421510000IF ro=2 THEN  a(2, 2)=10: a(10, 2)=110010IF ro=6 THEN  a(6, 2)=11: a(11, 2)=710020IF ro=9 THEN ےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےOR i=1 TO 5:POKE 28065+i, d(i):NEXT i11090GOSUB 3000:GOTO 310012000 d1=0: d2=0: d3=0: d4=0: d5=012008IF do>100000 THEN  do=9999912010IF INT(do/10000)>=1 THEN  d(1)=INT(do/10000): do=do-(d(1)*10000)12020IF INT(do/1000)>=1 THEN  d(2)=INT(do/1000): do=do-(d(2)*1000)12030IF INT(do/100)>=1 THEN  d(3)=INT(do/100): do=do-(d(3)*100)12040IF INT(do/10)>=1 THEN  d(4)=INT(do/10): do=do-(d(4)*10)12050IF INT(do)>=1 THEN  d(5)=INT(do)12060RETURN13000HOME:VTAB 5:? "ENTER CHOICE!":?:? "    1. Data Drive 1":?:? "  5LOMEM :280758POKE 17115, 241:POKE 17059, 0:TEXT10REM    MOTHERLODE Part 2,by Bob Zimmerman,22607 SE 322,Kent,Washington,98042, 206-886-1167 ALL RIGHTS RESERVED20GOSUB 451040GOSUB 44060GOSUB 22070GOTO 422077GOSUB 37980GOTO 40100IF ro=1 THEN  sc=sc+5000103FOR i=1 TO 25:IF LEN(c$(i))>0 THEN  worth=worth+ASC(c$(i))104NEXT i105IF ro=36 GOTO 110106GOSUB 150108 d$=CHR$(4): m$="MOTHERLODE SCOREBOARD": q$="******************************"110 sc=ho-ta+sc+wo+dm+k9112POKE 17115, 27:POKE 17059, 11:TEXT:Gro=6 OR ro=13 OR ro=27) AND (ti=0 AND cig<2) THEN GOSUB 10000435IF az=1 THEN  az=0:RETURN439GOTO 4220440TEXT450IF ro>17 THEN 465460ON ro GOSUB 500, 600, 650, 710, 760, 810, 880, 940, 1000, 1070, 1140, 1190, 1260, 1330, 1260, 1440, 1530463RETURN465IF ro>34 THEN 480470ON ro-17 GOSUB 1600, 1650, 1700, 1750, 1800, 1850, 1900, 1950, 2000, 2050, 2100, 2150, 2200, 2250, 2300, 2350, 2400475RETURN480ON ro-34 GOSUB 2500, 2550, 2550, 2650490RETURN500POKE 17115, 27:POKE 17059, 11:TEXT550? "You emerge into 2$144? d3:? d3$145? d4:? d4$146? d5:? d5$147? d$; "close score"148POKE 17115, 241:POKE 17059, 0:END150 s=28000155POKE lc, 159:CALL s160POKE lc, 228:CALL s170FOR i=240 TO 255:POKE lc, i:CALL s180FOR l=0 TO 75:NEXT l190NEXT i200POKE lc, 255:CALL s205RETURN220?:? "TIME LEFT="; ho:?:?:RETURN225TEXT:? "YOU HAVE "227?230FOR i=1 TO 27:IF c$(i)<>"" THEN ? c$(i), : wo=wo+ASC(c$(i))235NEXT i260?:?265?:?:? "YOUR CURRENT SCORE IS "; : sc=ho-ta+wo+dm:? sc: wo=0370GOSUB 3000:RETURN379 az=1380 ta=taYou're in the elevator.  It is empty."649RETURN650? "You see tracks going north and south":?680IF knife=0 THEN ? "You see a knife in the dust."709RETURN710? "You see evidence of recent     digging to the north.  A tunnelleads east but you notice that no footprints "; 740? "lead that way."759RETURN760? "The cavern is empty.  You see asteel-bar gate to the east "; 780IF ba=1 THEN ? "witha hole cut through it": a(5, 3)=24: a(24, 4)=5790? " "809RETURN810? "You can see tunnels leading offin all direc"A huge eel attacks!  You are   paralyzed and slowly sink into frigid eternity.":GOSUB 3000:GOTO 100400IF ta-tx=10 THEN GOSUB 5440:TEXT:GOSUB 5430:? "Your light flickered out.......just for a moment!":GOSUB 5440403IF (az=1 AND (ta-tx=10)) THEN  tx=ta+ro: az=0: bf=bf+1:POP:GOTO 40405IF tally-tx=10 THEN  tx=tally+ro: bf=bf+1:GOTO 40410IF bite>=1 THEN ? "You need first aid":GOSUB 5440420IF bite>1 AND tally-venom=8 THEN TEXT:? "The poison from the snakes has just paralyzed you!":GOSUB 5440:GOTO 100430IF (OSUB 2700120? d$; "open score"125? d$; "read score"126INPUT d1:INPUT d1$127INPUT d2:INPUT d2$128INPUT d3:INPUT d3$129INPUT d4:INPUT d4$130INPUT d5:INPUT d5$132HOME134GOSUB 2800136TEXT:? q$+q$:?:? TAB(5); m$:?:? q$138VTAB 10:? TAB(5); d1, d1$:VTAB 11:? TAB(5); d2, d2$:VTAB 12:? TAB(5); d3, d3$139VTAB 13:? TAB(5); d4, d4$:VTAB 14:? TAB(5); d5, d5$:VTAB 18:? q$140VTAB 20:? "     THANK YOU FOR PLAYING    ":? "          MOTHERLODE          ":? q$:? q$141? d$; "write score"142? d1:? d1$143? d2:? dsunshine--     everyone wants to hear about   your adventure!"570? "Ed checks your gold--it's pure!YOU'RE R-I-C-H":GOSUB 3000:POP580FOR i=1 TO 50:? "...WINNER...WINNER...WINNER..."; :NEXT i:GOSUB 5430:TEXT:GOTO 100600IF vat=1 THEN 642610? "The elevator slows to a stop.  You remove the key from the    control box, but accidentally  drop it!":?620? "The key disappears through a   crack and falls down the       elevator shaft!":?625? "The elevator light goes out!": vat=1: tx=ta:RETURN642IF li=1 THEN ? "+1: ho=ho-1:IF ho=0 THEN ? "OUT OF TIME!":GOSUB 5440:GOTO 100381IF (bf=3 AND cl=0) THEN  li=0:TEXT:? "BATTERY FAILURE!":GOSUB 5440: bf=4: tx=ta: c$(2)="DEAD FLASHLIGHT"383IF x$="inv" THEN 388384IF li=1 THEN GOTO 390385IF ta-tx=3 THEN GOSUB 5430:TEXT:? "YOU TRIP IN THE DARK AND BREAK YOUR NECK!":GOTO 100388IF (vat=1 OR ro>2) AND (li=0 AND az=1) THEN GOSUB 5430:TEXT: az=0:? "IT IS VERY DARK":POP:GOTO 60389IF (va=1 OR ro>2) AND li=0 THEN GOSUB 5430:TEXT:? "IT IS VERY DARK":GOTO 60390IF ee=2 THEN TEXT:? tions. You see a  ": way=INT(RND(1)*3+1)840ON way GOTO 850, 860, 870850? "passage to the west":RETURN860IF yz=1 THEN ? "chasm to the east":RETURN865? "rope bridge to the east.":RETURN870? "a path becoming very muddy to  the south."879RETURN880? "You see an ancient trunk that "895IF c1<>1 THEN ? "is tied shut with rope"900IF c1=1 AND o1<>1 THEN ? "is closed"905IF c1=1 AND o1=1 THEN ? "is open"920IF ta>100 AND c$(4)="" THEN ?:? "You see a rusty bucket!"939RETURN940? "The rope bridge you're on spa ? "You feel painful electrical jolts when they touch you": eel=eel+11730IF db=ro THEN ? "Luckily you're in a boat!"1749RETURN1750? "You stand on the beach of a    dark pool. A tunnel leads north"1770IF db=20 THEN  db=ro:? "Your boat is pulled up on shore"1799RETURN1800IF cig=1 GOTO 18151808IF cig=2 THEN ? "The old miner lies dead in the corner!":GOTO 18151810? "An Old Miner stares at you     while gnawing on a bone!":?1815IF cig=1 THEN ? "The Old Miner lies snoring in the corner."1818IF tie=1 THEwest."1189RETURN1190? "YOU ARE WAIST-DEEP IN MUD!"1259RETURN1260? "You're in a cavern just"; :IF ro=13 THEN ? " west"1280IF ro=15 THEN ? " east"1290? "of a thundering waterfall.     Black slime makes footing very  hazardous!"1329RETURN1330? "YOU ARE GETTING SOAKED!  The   water begins to wash you away!":IF lo=1 THEN  li=0: lo=01345IF lo=0 THEN  c$(13)="CANDLE"1369RETURN1440? "You stand on the shore of an   immense underground lake. You  can see a chest "; 1453IF (db=17 OR db=34) THEN  db=ro1455F mg=1 THEN ? "You can see the bottom step of an ancient ladder that appears to lead up to the surface"1899RETURN1900? "A tunnel leads away south.  To the west you can see "; 1920IF ba=0 THEN ? "a steel   gate blocking the passage."1930IF ba>=1 THEN ? "a hole cutin a steel gate.": a(24, 4)=5: a(5, 3)=241935IF bb=1 THEN RETURN1940IF tally>20 THEN ? "You can see a brown bottle."1949RETURN1950? "The passage north is blocked byrubble and stone."1975?:IF a(25, 4)=26 THEN ? "There is an open steel door tYour boat is pulled up on shore":RETURN1620? "You can see a small rowboat    painted with the number "; q1649RETURN1650? "You're on the north shore of anunderground lake.  You can see another pool to the east and a path to the north."1670IF (db=20 OR db=17 OR db=ro) THEN  db=ro:? "Your boat is pulled up on shore"1699RETURN1700? "The pool is filled with "; 1715IF de<>100 THEN ? "eels!":?1717IF de=100 THEN ? "dead    eels":?1718IF (db=18 OR db=21 OR db=19) THEN  db=ro1720IF (db<>ro AND de<>100) THENnsa bottomless pit east & west.  It feels like the bridge might break at any time."999RETURN1000? "You are on a tiny ledge just   east of the rope bridge.  The  ledge leads south."1069RETURN1070? "The room's alive with poisonoussnakes...and they seem very    interested in you!"1090IF RND(1)>.6 THEN ? "A large snake bites your ankle!": bite=bite+11100IF (venom=0 AND bite>=1) THEN  venom=tally1139RETURN1140? "To the north is the edge of a  deep void. Tunnels lead west   and south. It's muddy to the   N ? "He is tied up very well!"1819IF tie=1 THEN ? "His shoes have suction soles!"1820? "Bones are scattered everywhere.":?1830IF (cig=0 AND c$(10)="") THEN ? "The miner snickers...'Today is not your lucky day!'":?1833IF c$(10)<>"" THEN  a(ro, 4)=231835IF cig=0 AND c$(10)<>"" THEN ? "The miner frowns as he notices your lucky charm":?1840? "His coat looks odd."1849RETURN1850? "You see a door to the east and a tunnel to the north.":?1870? "To the west you see the gaping chasm of the mine shaft."1880IIF c2<>1 THEN ? "tied shut with rope"1457IF c2=1 AND o2<>1 THEN ? "that is closed"1459IF c2=1 AND o2=1 THEN ? "that is open"1460IF db=ro THEN ?:? "You can see a boat pulled up onshore"1529RETURN1530? "You cannot see any shore from  here!...And the pool appears tobe bottomless!"1550IF y$="nor" AND db=16 THEN  db=ro1560IF y$="sou" AND db=19 THEN  db=ro1570IF y$="wes" AND db=18 THEN  db=ro1599RETURN1600? "You've found a small island."1615IF (db=34 OR db=17 OR db=20) THEN  db=ro1618IF db=ro THEN ? "o the west":RETURN1980? "A steel door blocks the way    west.  The door has a massive  combination lock."1999RETURN2000? "You see a chest "; :IF c5<>1 THEN ? "tied shut with rope."2015IF (o5<>1 AND c5=1) THEN ? "that is closed"2020IF o5=1 THEN ? " with its lid open."2049RETURN2050? "You find a boot......"; :GOSUB 5430:? "...and the bodies of 50 miners!"2070? "They appear to have been       murdered!":IF s1=0 THEN  dm=1000: s1=12099RETURN2100? "In every direction you look....you can see...":GOSUB 5 x$="wal" OR x$="hea" OR x$="row" OR x$="swi" THEN GOTO 55004350IF x$="loo" THEN GOTO 57004360IF x$="use" OR x$="on " OR x$="rep" THEN GOTO 58504370IF x$="lig" OR x$="smo" THEN GOTO 60004380IF x$="pus" OR x$="pre" THEN GOTO 60504390IF x$="get" OR x$="tak" OR x$="gra" THEN GOTO 70004400IF x$="cut" OR x$="sta" OR x$="kil" THEN GOTO 72004410IF x$="ope" OR x$="lif" THEN GOTO 73504420IF x$="dig" THEN GOTO 75004430IF x$="rea" THEN GOTO 76504440IF x$="unl" THEN GOTO 77504450IF x$="tie" OR x$="bin" THEN O 28:? "...falling......falling.........."; :NEXT i:? "......         S P L A T ":GOSUB 150:GOTO 1002650? "You sink deeper and deeper.    Mud fills your eyes and mouth  as you sink out of sight to    your death":GOSUB 54402670GOTO 1002700POKE 16954, 42:HOME:POKE 16954, 322715VTAB 10:?:?:?:?:?2718VTAB 11:HTAB 5:? "YOUR SCORE IS "; sc:VTAB 12:? " Type Your Name for Scoreboard":HTAB 3:INPUT na$2730RETURN2800IF sc<=d5 THEN RETURN2810IF sc>d4 THEN 28302820 d5=sc: d5$=na$:RETURN2830IF sc>d3 THEN 285028"4530NEXT i4550FOR i=28000 TO 28005:READ x:POKE i, x:NEXT i: lc=280064555DATA                 58,102,109,211,255,2014593IF PEEK(28065)>1 THEN  r1=PEEK(28065):FOR i=1 TO r1: m1=RND(1):NEXT i4595 hours=260: ro=24596 open=0: li=0: kn=04600FOR i=1 TO 344610FOR j=1 TO 44620READ a(i, j)4630NEXT j:NEXT i4640 q=INT(RND(1)*49): r=INT(RND(1)*49): s=INT(RND(1)*49)4650FOR i=1 TO 5: d(i)=PEEK(28065+i):NEXT i4655 d1=INT(d(1)*10000): d2=INT(d(2)*1000): d3=INT(d(3)*100): d4=INT(d(4)*10): d5=INT(d(5))4658 k9=d, now what?"4228INPUT a$4230IF a$="" THEN 42204235IF a$="look" THEN 404238IF LEN(a$)=1 AND a$="n" OR a$="s" OR a$="e" OR a$="w" THEN 54804240IF LEN(a$)<7 THEN  a$=a$+" ":GOTO 42404250 x$=LEFT$(a$, 3)4260IF x$="qui" THEN GOTO 1004270IF x$="sav" OR x$="loa" THEN GOTO 130004300 n=14310IF MID$(a$, n, 1)=" " THEN  y$=MID$(a$, n+1, 3):IF LEFT$(y$, 1)<>"" OR LEFT$(y$, 1)<>" " THEN 43404320IF n<LEN(a$) THEN  n=n+1:GOTO 43104332IF x$="inv" THEN GOSUB 225:GOTO 774340IF x$="go " OR x$="run" OR x$="cra" OR4302120FOR i=1 TO 14:? " ..GOLD...MOTHERLODE...GOLD...":NEXT i2149RETURN2350IF c$(24)<>"" THEN ? "The walls of this pocket-like  cavern bear the marks of recentdigging":RETURN2360? "You find a rock filled with    sparkling yellow flecks"2399RETURN2400? "The lake seems to go on forever"2420IF (db=16 OR db=18) THEN  db=ro2449RETURN2500? "You slip on the rocks and are  washed away....to your death.":GOSUB 3000:GOTO 1002549RETURN2550? "You tumble to your death into abottomless pit....."2570FOR i=1 TGOTO 78004460IF x$="off" OR x$="giv" OR x$="tra" THEN GOTO 78504470IF x$="tal" THEN GOTO 79004500? "I DON'T UNDERSTAND "; a$:GOTO 3804510DIM a(38, 4), c$(27)4515 c$(1)=" CIGARETTES": c$(2)="FLASHLIGHT": c$(3)="MATCHES": c$(4)="BUCKET": c$(5)="FIRSTAID KIT": c$(6)="BATTERIES"4517 c$(7)="SHOVEL": c$(8)="ROPE": c$(9)="HARD-HAT": c$(10)="LUCKY CHARM": c$(11)="CUTTING-TORCH"4518 c$(12)="FUSE": c$(13)="CANDLE": c$(14)="ROTENONE": bf=0: dm=0: d$=CHR$(4)4520FOR i=1 TO 144525IF PEEK(28050+i)=0 THEN  c$(i)="40 d9=d4: d9$=d4$: d4=sc: d4$=na$: sc=d9: na$=d9$:GOTO 28202850IF sc>d2 THEN 28702860 d8=d3: d8$=d3$: d3=sc: d3$=na$: sc=d8: na$=d8$:GOTO 28402870IF sc>d1 THEN  d6=d1: d6$=d1$: d1=sc: d1$=na$: sc=d6: na$=d6$2880 d7=d2: d7$=d2$: d2=sc: d2$=na$: sc=d7: na$=d7$:GOTO 28603000VTAB 23:? "   press any key to continue  ":GET t$:RETURN4210REM                                  --ACCEPT COMMAND4220 n=INT(RND(1)*3+1):ON n GOTO 4222, 4224, 42264222? "What next?":GOTO 42284224? "Next command!":GOTO 42284226? "Ok1+d2+d3+d4+d54660 d1=0: d2=0: d3=0: d4=0: d5=04700DATA            0,0,0,0,0,0,0,3,4,6,2,0,33,3,5,0,0,0,0,44750DATA            3,12,8,7,0,0,6,0,36,36,9,6,0,10,0,8,9,0,0,114800DATA            34,13,10,12,6,38,11,38,11,0,14,0,10,35,15,13,10,0,16,144850DATA            17,0,34,15,0,16,0,0,20,34,18,17,22,17,20,0,21,18,0,194900DATA            25,20,0,0,0,0,0,0,24,0,22,36,0,23,0,0,0,21,0,0,28,0,25,04960DATA             0,25,0,0,0,26,0,0,0,4,0,0,34,34,34,16,0,29,0,32,0,0,31,0,0,4,0,0,34,34,34,165329RETURN54 3805849? "IT REVEALS NOTHING":GOTO 3805850IF (y$="bat" AND c$(6)<>"") AND (cl=0 AND bf=4) THEN  li=1: c$(6)="":? "BATTERIES REPLACED":GOSUB 54305855IF (y$="bat" AND c$(6)="") AND (cl=0 AND bf=4) THEN  c$(2)="FLASHLIGHT":GOTO 405860IF y$="key" THEN ? "You've LOST it":GOTO 3805870IF y$="fla" AND c$(2)<>"" AND bf<4 THEN  li=1:?:? "FLASHLIGHT ON":GOSUB 5430:GOTO 775880IF y$="kni" AND knife=1 THEN ? "Try asking to CUT something!":GOTO 3805900IF (y$="boa" OR y$="row") AND ro=18 THEN ? "You're in the boat"5560IF y$="dow" THEN GOTO 56755570IF y$="nor" THEN  ro=a(ro, 1):GOTO 775580IF y$="sou" THEN  ro=a(ro, 2):GOTO 775590IF y$="eas" THEN  ro=a(ro, 3):GOTO 775600IF y$="wes" THEN  ro=a(ro, 4):GOTO 775610IF y$="up " AND ro=23 THEN  ro=1:GOTO 775675? "YOU CAN'T GO THAT WAY":GOTO 3805700IF (y$="ins") THEN ? "INSIDE WHAT?":GOTO 3805720IF y$="gat" AND ro=5 THEN ? "The gate is like a jail-cell wall, but has no lock...and no door!":GOTO 3805725IF (y$="tru" AND ro=7) AND (o1=1 AND no=1) THEN ? "IT'S EMPTY":GOTD c$(3)<>"" THEN ? "Match is lit":GOTO 3806020IF y$="can" AND c$(13)<>"" THEN ? "Candle is lit": li=1: lo=1: c$(13)="LIT CANDLE": cl=1:GOSUB 5440:GOTO 776030IF y$="cig" AND c$(1)<>"" THEN ? "The cigarette tastes stale!    When are you going to quit thatnasty habit?":GOTO 3806049? "YOU CAN'T":GOTO 3806050IF (y$="gre" OR y$="but" OR y$="upp") AND ro=2 THEN ? "The mechanism is deactivated":GOSUB 5440:GOTO 3806090? "It won't help":GOTO 3807000IF y$="lig" THEN ? "You'll have to use whatever    light you brboa" AND db>0) AND db=ro THEN ? "You see the number "; q; " on it":GOTO 3805780IF (y$="che" AND o5=1) THEN ? "It is filled with gold ore!":GOTO 3805790IF (bb=0 AND y$="bot") AND (ta>20) THEN ? "There is something odd about itGet it & look more closely":GOTO 3805795IF bb=1 AND y$="bot" THEN ? "You see the number "; s; " scratched on its side":GOTO 3805800IF y$="tra" THEN ? "They have been made by shoes   with suction soles":GOTO 3805810IF (y$="bon" AND ro=22) THEN ? "They appear to be human bones!":GOTO30FOR i=1 TO 999:NEXT i:RETURN5440FOR i=1 TO 3000:NEXT i:RETURN5450 rn=RND(1):RETURN5480IF a$="n" THEN  y$="nor"5485IF a$="s" THEN  y$="sou"5490IF a$="e" THEN  y$="eas"5495IF a$="w" THEN  y$="wes"5500IF y$="nor" AND a(ro, 1)=0 THEN GOTO 56755510IF y$="sou" AND ro=22 AND a(ro, 2)=0 THEN ? "The miner blocks your way!":GOTO 3805520IF y$="sou" AND a(ro, 2)=0 THEN GOTO 56755530IF y$="eas" AND a(ro, 3)=0 THEN GOTO 56755540IF y$="wes" AND a(ro, 4)=0 THEN GOTO 56755550IF y$="up " AND mg=0 THEN GOTO 5675: db=ro:GOTO 3805910IF y$="rot" AND (c$(14)<>"" AND ro=20) THEN ? "The rotenone kills the eels": de=100: ee=0: c$(14)="":GOSUB 5440:GOTO 775940IF y$="sho" AND c$(7)<>"" THEN ? "Try asking to 'dig' a direction":GOTO 3805950IF (y$="fir" AND c$(5)<>"") THEN GOTO 110005960IF (y$="cut" AND c$(11)<>"") AND (ro=5 OR ro=24) THEN  ba=1:TEXT:HTAB 11:? "HOLE CUT":GOSUB 5430:GOTO 775970IF (y$="cut" AND ro=25) AND (c$(11)<>"") THEN ? "IT HAS NO AFFECT!":GOTO 3805999? "IT'S NOT POSSIBLE":GOTO 3806000IF y$="mat" ANO 3805730IF (ro=7 AND y$="tru") AND (c1=1 AND o1=1) THEN ? "YOU SEE A WRITTEN NOTE":GOTO 3805735IF (ro=16 AND y$="che") AND (o2=1 AND c$(23)<>"") THEN ? "IT'S EMPTY":GOTO 3805740IF (ro=16 AND y$="che") AND o2=1 THEN ? "YOU SEE SCUBA GEAR!":GOTO 3805750IF (ro=22 AND y$="coa") THEN ? "The number "; r; " is sewn on the   front":GOTO 3805760IF mg=1 AND y$="lad" THEN ? "The ladder appears to be in good shape.":GOTO 3805770IF (ro=25 AND y$="loc") THEN ? "The dial numbers run from 0-48":GOTO 3805775IF (y$="ought":GOTO 3807020IF y$="key" THEN ? "It fell down the elevator shaft--you can't get it":GOTO 3807030IF y$="kni" AND ro=3 THEN  c$(21)="KNIFE": knife=1:? "GOT IT":GOSUB 5430:GOTO 777040IF (y$="not" AND ro=7) AND o1=1 THEN  note=1: c$(22)="NOTE":? "GOT IT":GOSUB 5430:GOTO 777050IF y$="che" OR y$="tru" THEN ? "It's much too heavy":GOTO 3807060IF y$="sna" AND ro=10 THEN ? "You get bit!": bite=bite+1:IF venom=0 THEN  venom=tally:GOTO 3807065IF (y$="sna" AND ro=10) THEN GOTO 3807070IF (y$="scu" AND ro=16!": mm=17285IF mm=1 THEN  knife=0: c$(21)="": mm=0:GOTO 3807290IF (y$="rop" AND ro=26) THEN  c5=1:GOTO 777300IF (y$="rop" AND ro=16) THEN  c2=1:GOTO 777349? "YOU CAN'T":GOTO 3807350IF y$="gat" AND (ro=5 OR ro=24) THEN ? "The gate cannot be opened":GOTO 3807380IF (y$="tru" AND ro=7) AND c1>=1 THEN ? "The lid groans as it opens": o1=1:GOSUB 5440:GOTO 777390IF y$="fir" AND c$(5)<>"" THEN ? "Kit is open":GOTO 3807400IF (y$="che" AND ro=16) AND c2>=1 THEN ? "The chest is open": o2=1:GOSUB 5440:GOTO 7774overed with       MAGGOTS--so you drop it!":GOTO 3807140IF (y$="gol" OR y$="ore") AND (ro=26 AND o5=1) THEN  c$(27)="GOLD ORE":? "GOT IT":GOSUB 5430:GOTO 777145IF (y$="gol" OR y$="mot") AND (ro=28 AND c$(4)="") THEN ? "YOU HAVE NO WAY TO CARRY IT!!":GOTO 3807150IF ro=28 AND (y$="gol" OR y$="mot") THEN  c$(25)="MOTHERLODE GOLD": mg=1:? "GOT IT":GOSUB 5430:GOTO 3807160IF (ro=24 AND y$="bot") AND (ta>20) THEN  c$(26)="BOTTLE OF BEER": bb=1:GOTO 777170IF (y$="yel" OR y$="roc") AND ro=33 THEN  c$(24)="FOOLS it":GOTO 3807670IF (y$="not" AND c$(22)<>"") THEN TEXT:? "The miner--BEWARE-- has a habitof old, and he guards this mine"; 7680? "because of its gold...":?7690? "Fulfill his desires and tie himreal tight, then you can searchand he cannot fight..":?7700? "But remember just this, though it seem quite queer,...":?7710? "..a coat":? "........a boat":? "...........and a bottle of beer"7720GOSUB 3000:GOTO 777730? "NOTHING TO READ":GOTO 3807750IF (y$="doo" AND ro=25) THEN GOTO 120007799? "YOU CAN'T":GOTOo=6 AND y$="rop") THEN ? "You can't reach the rope":GOTO 3807250IF (ro=9 AND y$="rop") THEN ? "The bridge falls silently away into the chasm": a(6, 3)=36: a(9, 4)=36:GOTO 3807260IF y$="sna" AND ro=10 THEN ? "You cut one in half":GOTO 3807270IF (y$="eel" AND ro=20) AND de<>100 THEN ? "You just got shocked!":GOTO 3807275IF (y$="min" OR y$="old") AND (ro=22 AND cig>=1) THEN  cig=2:? "Blood gushes from his wounds!":GOTO 3807280IF (y$="min" OR y$="old") AND ro=22 THEN ? "FOOL--The miner grabs away yourknife) AND o2>=1 THEN  c$(23)="SCUBA GEAR": sg=1:? "GOT IT":GOSUB 54307075IF y$="scu" AND sg=1 THEN  a(16, 1)=17: a(17, 2)=16: a(17, 3)=18: a(18, 4)=17: a(17, 1)=19: a(19, 2)=17: sg=0:GOTO 777080IF (y$="boa" AND db=1) THEN ? "You climb into the boat":GOTO 3807090IF (y$="eel" AND ro=20) AND (de<>100) THEN ? "The eel is lively--You get     shocked!": ee=ee+1:GOTO 3807095IF (y$="eel" AND ro=20) AND (de=100) THEN ? "It is putrid and slimy--you    drop it!":GOTO 3807100IF y$="bon" AND ro=22 THEN ? "The bone is c30IF (y$="doo" AND ro=25) AND door=0 THEN ? "Door is Locked":GOTO 3807435IF (y$="doo" AND ro=25) AND door=1 THEN ? "DOOR OPEN":GOSUB 5430:GOTO 777440IF (y$="che" AND ro=26) AND c5=1 THEN ? "The chest pops open!": o5=1:GOSUB 5440:GOTO 777499? "YOU CAN'T":GOTO 3807500IF c$(7)="" THEN ? "Can't dig without a shovel":GOTO 3807520IF (y$="nor" AND ro=25) THEN  a(25, 1)=27: ro=27:GOTO 777649? "YOU CAN'T--IT'S SOLID ROCK!":GOTO 3807650IF y$<>"not" THEN 77307660IF y$="not" AND c$(22)="" THEN ? "You don't have GOLD":? "GOT IT":GOSUB 5430:GOTO 777180IF y$="buc" AND ro=7 THEN  c$(4)="OLD BUCKET":? "GOT IT":GOSUB 5430:GOTO 3807199? "YOU CAN'T":GOTO 3807200IF y$="hol" AND ro=5 THEN ? "Tell me to use something...":GOTO 3807205IF kn=0 THEN ? "YOU CAN'T":GOTO 3807210IF y$="thr" OR y$="mys" THEN ? "You cut a major artery---and   bleed to death":GOSUB 5440:TEXT:GOTO 1007220IF (ro=7 AND y$="rop") THEN  c1=1:GOTO 777230IF (ro=8 AND y$="rop") THEN ? "The rope snaps like a whip....":GOSUB 5440: ro=36:GOTO 407240IF (r 3807800IF y$="rop" THEN ? "TIE THE ROPE TO ITSELF?":GOTO 3807820IF (y$="min" AND ro=22) AND (cig=1 AND c$(8)<>"") THEN ? "YOU DID A GOOD JOB!": tie=1: c$(8)="":GOSUB 5430:GOTO 777849? "YOU CAN'T":GOTO 3807850IF y$<>"cig" THEN ? "YOU CAN'T GIVE THAT":GOTO 3807870IF (y$="cig" AND c$(1)<>"") AND ro=22 THEN ? "HE GRABS THEM AND CHAIN-SMOKES THE PACK!": cig=1: c$(1)=""7880? ".....AND FALLS ASLEEP!":GOSUB 5440: a(22, 2)=19: a(19, 1)=22:GOTO 777900REM                         --TALK ROUTINE7905IF cig=1 THEl>0 THEN  eel=eel-111100GOSUB 3000:GOTO 7712000? "GIVE COMBINATION"12020INPUT "Turn right to?"; x12030INPUT "Turn left to?"; y12040INPUT "Turn right to?"; z12050IF x<>r THEN 1206012051IF y<>q THEN 1206012052IF z<>s THEN 1206012055? "DOOR UNLOCKED":GOSUB 5440: a(25, 4)=26: a(26, 3)=25: door=1:GOTO 7712060? "Wrong Combination":GOSUB 544012070GOTO 7713000HOME:VTAB 5:? TAB(5); "1. Data Drive 1":?:? TAB(5); "2. Disk Drive 1"13010INPUT dn:IF dn<1 OR dn>2 THEN 4013020IF dn=2 THEN  dn=513030VTAB 10:?1009010070? "You jump high into the air...": m=3:GOSUB 5430:GOTO 1009010080? "You crouch as low as possible": m=4:GOSUB 5430:GOTO 1009010090ON mt GOTO 10100, 10110, 10120, 1013010100? "A boulder goes right...": b=1:GOSUB 5430:GOTO 1014010110? "A boulder skips to the left...": b=2:GOSUB 5430:GOTO 1014010120? "It bounces high...": b=3:GOSUB 5430:GOTO 1014010130? "It rolls low...": b=4:GOSUB 543010140?10145IF m=b THEN ? "YOU'VE BEEN HIT!": hit=hit+1:GOSUB 5430:?10148 fz=fz+1:IF fz=5 THEN  fz=0:GOTO 1 va:INPUT ee:INPUT tx:INPUT ti:INPUT bi:INPUT ve14020INPUT mg:INPUT kn:INPUT ba:INPUT yz:INPUT c1:INPUT o1:INPUT db:INPUT de:INPUT ci:INPUT bb:INPUT c5:INPUT o5:INPUT dm14030INPUT s1:INPUT k9:INPUT no:INPUT c2:INPUT o2:INPUT sg:INPUT us:INPUT do:INPUT q:INPUT r:INPUT s14040FOR i=1 TO 27:INPUT c$(i):NEXT i14041TEXT:IF ba>=1 THEN  a(5, 3)=24: a(24, 4)=514042IF c$(23)<>"" THEN  a(16, 1)=17: a(17, 2)=16: a(17, 3)=18: a(18, 4)=17: a(17, 1)=19: a(19, 2)=1714043IF yz=1 THEN  a(6, 3)=36: a(9, 4)=3614044IF ciUB 543010190? "You also see fresh tracks near you!": hit=0:GOSUB 3000:GOTO 4011000REM                               --FIRSTAID ROUTINE11020 us=us+1:IF us>=4 THEN ? "You have used everything in    your firstaid kit":GOTO 38011030 vial=4-use11040TEXT:? "You see that the kit contains only "; vial; " vials of medicine"11050?:? "When the kit is empty, it is   useless"11055IF (bi=0 AND ee=0) THEN 1110011060?:? "You apply the medicine to your wound and it heals!"11080IF bite>0 THEN  bite=bite-111090IF eeN ? "HE'S ASLEEP!":GOTO 3807908IF cig=2 THEN ? "HE'S DEAD!!":GOTO 3807910IF y$="min" AND ro=22 THEN ? "The Miner says, GET OUT OF MY  MINE, OR I'LL FIX YOU LIKE THE OTHERS":GOTO 3807949? "IT DOESN'T HELP":GOTO 38010000TEXT10010? "..BUT WAIT...you see...boulderscoming directly at you!":GOSUB 5430:?10020 mt=INT(RND(1)*4+1)10030 ht=INT(RND(1)*4+1)10040ON ht GOTO 10050, 10060, 10070, 1008010050? "You leap to the right...": m=1:GOSUB 5430:GOTO 1009010060? "You jump to the left...": m=2:GOSUB 5430:GOTO  TAB(5); "Enter Filename":INPUT na$:IF na$="" THEN 4013100? d$; "open "; na$; " d"; dn13110IF x$="loa" THEN 1400013120? d$; "write "; na$13130? ro:? ho:? ta:? bf:? cl:? lo:? li:? va:? ee:? tx:? ti13140? bi:? ve:? mg:? kn:? ba:? yz:? c1:? o1:? db:? de:? ci:? bb:? c513150? o5:? dm:? s1:? k9:? no:? c2:? o2:? sg:? us:? do:? q:? r:? s13160FOR i=1 TO 27:? c$(i):NEXT i13170? d$; "close "; na$:GOTO 4014000? d$; "read "; na$14005HGR214010INPUT ro:INPUT ho:INPUT ta:INPUT bf:INPUT cl:INPUT lo:INPUT li:INPUT015510150IF RND(1)>.37 THEN 1002010155?10156IF (hi>0 AND c$(9)<>"") THEN ? "Fortunately your hard-hat      protected you!":?: hi=0:GOSUB 3000:GOTO 4010157IF hi=0 THEN ? "Whew!!...that was lucky! Wonderwhere they came from...?":GOSUB 3000:GOTO 4010160IF hi=1 THEN ? "You're bruised but otherwise OK": hi=0:GOSUB 3000:GOTO 4010170IF hit>=2 THEN ? "You collapse in a heap": loss=INT(RND(1)*hit+2*hi):GOSUB 5430:?10180? "When you awake you realize     you've been unconscious for"; lo; " hours!": ho=ho-lo:GOS>=1 THEN  a(22, 2)=19: a(19, 1)=2214045TEXT14050HTAB 1:? d$; "close "; na$:GOTO 40dn13110IF x$="loa" THEN 1400013120? d$; "write "; na$13130? ro:? ho:? ta:? bf:? cl:? lo:? li:? va:? ee:? tx:? ti13140? bi:? ve:? mg:? kn:? ba:? yz:? c1:? o1:? db:? de:? ci:? bb:? c513150? o5:? dm:? s1:? k9:? no:? c2:? o2:? sg:? us:? do:? q:? r:? s13160FOR i=1 TO 27:? c$(i):NEXT i13170? d$; "close "; na$:GOTO 4014000? d$; "read "; na$14005HGR214010INPUT ro:INPUT ho:INPUT ta:INPUT bf:INPUT cl:INPUT lo:INPUT li:INPUTےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےے9251*****8017*****7693*****1163Gordon199GordonCTORY  بBASICPGMTط°°°packopiAےےgWHELLOAُ:pB·"شWHELLOAےےےےے#üWmotheroneAے(0WmotherIIAے?UWBLOCKS LEFTX§ va:INPUT ee:INPUT tx:INPUT ti:INPUT bi:INPUT ve14020INPUT mg:INPUT kn:INPUT ba:INPUT yz:INPUT c1:INPUT o1:INPUT db:INPUT de:INPUT ci:INPUT bb:INPUT c5:INPUT o5:INPUT dm14030INPUT s1:INPUT k9:INPUT no:INPUT c2:INPUT o2:INPUT sg:INPUT us:INPUT do:INPUT q:INPUT r:INPUT s14040FOR i=1 TO 27:INPUT c$(i):NEXT i14041TEXT:IF ba>=1 THEN  a(5, 3)=24: a(24, 4)=514042IF c$(23)<>"" THEN  a(16, 1)=17: a(17, 2)=16: a(17, 3)=18: a(18, 4)=17: a(17, 1)=19: a(19, 2)=1714043IF yz=1 THEN  a(6, 3)=36: a(9, 4)=3614044IF ciےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےے10LOMEM :3000015REM   I.T. adapted for ADAM from Astounding Games for your Apple Computer by Hal Renko16REM    Adapted by Bob Zimmerman,Kent,Washington,198520HOME: ao=040GOSUB 570050 mv=8: nr=0:GOTO 7060GOSUB 20070GOSUB 50080GOSUB 40090IF nw<6 THEN 60100TEXT:? "CONGRATULATIONS!  YOU SUCCEEDED IN KILLING YOURSELF!"110END200REM     input210 nr=0: mv=0220INPUT "What now?"; c$221IF c$="" THEN 220225?230FOR i=1 TO 14240IF LEFT$(m$(i), LEN(c$))=c$ THEN  mv=i: i=14250NEXT i260IF mv>6 THEN RETURHEN  key=INT(RND(1)*3+1):ON key GOTO 1245, 1246, 12471240 xx=RND(1):GOTO 12331245 key=5822:POKE 17115, 240:TEXT:RETURN1246 key=7298:POKE 17115, 240:TEXT:RETURN1247 key=6319:POKE 17115, 240:TEXT:RETURN1300REM     take1305IF (t(1)=0 OR t(1)=rm) AND lo OR rm>24 THEN 13101306? "You can't see your own fingers, let along something to take"1307RETURN1310IF th=0 THEN ? "There is nothing to take here":RETURN1320? "I have the "; t$(th)1330 p(lp)=th: lp=lp+1: t(th)=0: th=01340RETURN1400REM     drop1410IFrm, i)<>0 THEN ? "You can go "; m$(i)460NEXT i470?:? TAB(13); "***"480RETURN500REM     operations510IF nr<>0 THEN  rm=nr529 th=0530FOR i=1 TO 12540IF t(i)=rm THEN  th=i: i=12550NEXT i560 hl=0570FOR i=1 TO 6580IF h(i, 1)=rm THEN  hl=i: i=6590NEXT i600REM     general operations610IF rm<12 AND rr<>8 THEN GOSUB 4200620 rl=rl-lo630REM     personal operations640IF mv<7 THEN 660650ON (mv-6) GOSUB 1000, 1200, 1300, 1400, 1600, 1700, 1800, 1900660REM     handlers670ON hl GOSUB 2000, 2300, 2600, 0IF lp=1 THEN ? "You own only your clothes":GOTO 16401620? "You have the following:"1630FOR i=1 TO lp-1:? t$(p(i)):NEXT1640? "You can survive "; 5-nw; " more wounds"1650RETURN1700REM     bandage1710 tp=6:GOSUB 41001720IF po=0 THEN ? "You won't manage that without  a bandage":RETURN1730? "It doesn't look very hopeful.  I'll need all you have."1740? CHR$(7)+CHR$(7)1750? "All right, it will hold for a  while"1760 nw=0: lp=lp-1: p(po)=p(lp)1770RETURN1800REM     lantern on/off1820IF t(1)>0 AND t(1)"This is your chance! You can   hit it again before it recovers"1110INPUT "Do you want to?(y/n)"; an$:IF an$="y" THEN ? "You raise your sword again,":GOTO 10551120IF h(hl, 3)>1 THEN RETURN1130IF h(hl, 3)=1 THEN ? "Your victim is badly wounded":RETURN1140? "You killed your victim!"1150 h(hl, 1)=0: t(hl+8)=rm: hl=01160RETURN1170REM     help1200TEXT:REM   help1210?:HTAB 6:? "POSSIBLE COMMANDS":?1220FOR i=1 TO 14:HTAB 10:? m$(i):NEXT1230VTAB 22:HTAB 5:? "PRESS <S> TO CONTINUE"1233IF PEEK(64885)=83 TN270IF mv=0 THEN ? "I don't understand":GOTO 200280 nr=r(rm, mv):IF nr<>0 THEN RETURN290? "You cannot go that way"300GOTO 200400REM     output405?410? "You are in the "; d$(rm)420IF rm<25 AND ( NOT lo OR t(1)>0 AND t(1)<>rm) THEN ? "You cannot see much here":GOTO 440430FOR i=1 TO 12432IF t(i)=rm THEN ? "There is a "; t$(i); " here"434NEXT i435IF lo AND rl>120 THEN ? "Your lamp has gone out": lo=0436IF lo AND rl>100 THEN ? "Your lamp batteries are getting exhausted"440?445FOR i=1 TO 6450IF r( lp=1 THEN ? "You don't have anything!":RETURN1420INPUT "What do you want to drop?"; d$1430 tp=0:FOR i=1 TO 121440IF d$=LEFT$(t$(i), LEN(d$)) THEN  tp=i: i=121450NEXT i1460IF tp=0 THEN ? "I don't understand you":RETURN1470GOSUB 41001480IF po=0 THEN ? "You don't have a "; t$(tp):GOTO 15201490? "You've dropped the "; t$(tp)1500 th=p(po): t(th)=rm: lp=lp-1: p(po)=p(lp)1520INPUT "Do you want to drop more?"; an$: an$=LEFT$(an$, 1)1525IF an$="Y" OR an$="y" THEN 14201530RETURN1600REM     inventory1612700, 2900, 3100680RETURN1000REM     kill1010IF hl=0 OR hl>4 THEN ? "Time is all you will kill!":RETURN1020 tp=7:GOSUB 41001030IF po=0 THEN ? "I won't let you attack with    bare hands--it's suiside!":RETURN1040? "You try to kill the "; h$(hl)1050? "You attack it with your sword,"1055IF (hl=1 OR hl=2) AND (h(hl, 2)=6 OR h(hl, 2)=5) THEN 10701060IF RND(1)<.5 THEN ? "but it moves away quickly":GOTO 10901070? "and you give it a terrible blow"1080 h(hl, 3)=h(hl, 3)-11090IF RND(1)>.2 THEN 11201100? <>rm THEN ? "Get a lantern first":RETURN1825IF rl>120 THEN ? "Your batteries are finished":RETURN1830 lo= NOT lo1840? "I turned the lantern "; :IF lo THEN ? "on":RETURN1850IF  NOT lo THEN ? "off":RETURN1900REM     read1910 tp=4:GOSUB 41001920IF po=0 THEN ? "Why do you want to read if you don't have a book?":RETURN1930IF  NOT lo AND rm<25 THEN ? "It is too dark to read":RETURN1940? "There is a receipt for cookies in this book"1950 t$="HS RZXR:SZJD NMD GDKKGNTMC ZMC ZOHMBG NEVGDZS, ZMC CQNO HS NM ZA(RND(1)*12+1): lp=lp-1: p(rn)=p(lp)2650? "With a quick move it snatches"2660? "something, and "; 2670? "it sneaks away"2680 h(3, 1)=h(3, 1)+3:IF h(3, 1)>24 THEN  h(3, 1)=h(3, 1)-82690RETURN2700REM     hellhound2710ON h(4, 2) GOTO 2720, 2750, 27802720? "There is a giant hellhound here"2730? "It looks like it wants you for dinner"2740 h(4, 2)=2:RETURN2750? "The hellhound attacks you and  bites you violently"2765 nw=nw+12770 h(4, 2)=3:RETURN2780? "The hellhound growls and seems to prepare for ano XNT":GOSUB 40002120 t$="QDZKHYD XNT BZM TMCDQRSZMC GHL!":GOSUB 40002130 t$="GD RZXR: OKDZRD FN CNVM EHMC SGD MTKKHSXANLA.  RNLD BQZYX":GOSUB 40002140 t$="OQNEDRRNQ VZMSR SN CDRSQNX ZKK KHED VHSGHS!":GOSUB 40002150 t$="H GZC Z EHFGS VHSG SGD LNMRSDQ SGZS OQNSDBSR HS,ATS MNV H ZL":GOSUB 40002160 t$="DWGZTRSDC, RN HS'R TOSN XNT SN RZUD SGD DZQSG!":GOSUB 40002170? "Suddenly I.T. collapses."2180 h(1, 2)=4:RETURN2190? "It looks like I.T. is in a coma. Now you have to do it all    alone"2200? "Good Luck"SC(y$)=ke THEN 30303015? "ENORMOUS EXPLOSION! MUSHROOM   CLOUD"3017? "You tried bravely, but alas!   You did not succeed..."3018FOR m=1 TO 20:FOR i=15 TO 1 STEP -1:POKE 28007, i:CALL 28000:NEXT:NEXT3020FOR i=1 TO 5000:NEXT i: ao=999:TEXT:GOTO 57003030? "Congratulations! You succeeded where everyone else failed!"3050END3100REM     barbecue3130IF t(2)=rm AND t(12)=rm THEN  th=8: t(th)=rm: t(2)=0: t(12)=0: h(6, 2)=23140ON h(6, 2) GOTO 3150, 3180, 32203150? "There is a giant barbecue here"3160? "with2430? "The monster gave you a terrible blow"2440? "Your head is spinning"2450 nw=nw+12460 h(2, 2)=RND(3)+1:RETURN2470? "The monster says surprised:    cookies?"2480? "It starts to eat at once"2490? "An enormous !!BONG!!":? "and it falls asleep"2495? zz$+zz$+zz$2500 r(16, 6)=12510 h(2, 2)=6:RETURN2520? "The monster is asleep"2530RETURN2600REM     snake2610? "There is a sneaky snake here"2620IF RND(1)<.4 THEN RETURN2630IF lp=1 OR RND(1)<.5 THEN 26702640 rn=INT(RND(1)*(lp-1)+1): t(p(rn))=12+INTZQADBTD":GOSUB 40001960? "That is all"1970RETURN2000REM     i.t2010IF th=3 THEN  h(1, 2)=3: t(th)=0: th=02020ON h(1, 2) GOTO 2030, 2060, 2090, 2190, 22002030? "I.T. (the INTRA-TERRESTRIAL) is here"2040? "He's talking urgently, but you can't understand him"2050 h(1, 2)=2:RETURN2060 t$="H.S. FDRSTQDR SGZS GD HR UDQX SGHQRSX.  GD KNNJR CDRODQZSD"2070GOSUB 40002080RETURN2090 t$="H.S. CQHMJR ZR HE GD MDDCDC HS":GOSUB 40002100 t$="UDQX AZCKX.  ZESDQ Z VGHKD GD":GOSUB 40002110 t$="RSZQSR SZKJHMF; ZMCther attack"2800 h(4, 2)=1+RND(2):RETURN2900REM     bomb2910? "The nullity bomb is here"2920? "There are three wires between  the bomb and the time-mechanism--a green one(G), a yellow one (Y), and a red one(R)"2930? "You must disconnect wo of them to stop it"2940INPUT "Which will be the first one?"; x$2950INPUT "And the second one?"; y$2960 cb=0: c$="YRG":FOR i=1 TO 32970 cb=cb+(x$=MID$(c$, i, 1))+(y$=MID$(c$, i, 1))2980NEXT i2990IF cb<2 THEN ? "Watch out!  Wrong input":GOTO 29203000IF ASC(x$)*A2210 h(1, 2)=5:RETURN2220? "I.T. is here"2230? "He's in a coma"2240RETURN2300REM     dragon2310IF th=8 THEN  h(2, 2)=5: t(th)=0: th=02320ON h(2, 2) GOTO 2330, 2370, 2400, 2430, 2470, 25202330? "There is an enormous monster"2340? "here. It's eyes are rolling"2350? "It yells: are you a cookie"2369 h(2, 2)=2:RETURN2370? "The monster yells louder and"2380? "louder: are you a cookie?"2390 h(2, 2)=3:RETURN2400? "The monster keeps yelling, and"2410? "becomes rather agressive"2420 h(2, 2)=4:RETURN a large fire under it"3170RETURN3180? "An enormous flash lightens the"3190? "place, and a penetrating smell"3200? "fills your nose"3201FOR m=1 TO 103202FOR i=15 TO 1 STEP -1:POKE 28007, i:CALL 28000:NEXT i3204NEXT m3210 h(6, 2)=3:RETURN3220? "Everything is quiet now; even"3230? "the terrible smell has faded"3240 h(6, 2)=1:RETURN4000REM     decode text4010 tn$="":FOR i1=1 TO LEN(t$): c$=MID$(t$, i1, 1)4020IF c$="Z" THEN  c$="A":GOTO 40304022IF c$>="A" AND c$<"Z" THEN  c$=CHR$(ASC(c$)+1)4030 RD"5525DATA     "RKHBDC RMZJD","CDZC GNTMC"5530DATA     "H.S.","LNMRSDQ","RMZJD","GDKKGNTMC","AZQADBTD","ANLA"5540DATA       "QDRDS BZUD","S-BZUD","RDBQDS BNQQHCNQ","BNMSQNK QNNL"5542DATA    "N-BZUD","H-BZUD","ROZBD-BZUD","AKZBJ QNNL","O-BZUD"5545DATA     "D-BZUD","M-BZUD","DLOSHMDRR"5550DATA      "RLZKK BZUD","QNBJX BZUD","RLDKKX BZUD","CQZFNM BZUD"5552DATA    "RMZJD BZUD","XDKKNV BZUD","RSQDZL AZMJ","RSHMJX OKZBD"5555DATA     "ENNC BZUD","EHMZK BZUD"5560DATA      "BNKNQDC BZUD","HBD BZUD","NODM Ong pushed away"4330? "Now it has stopped"4350 r(2, 1)=34360RETURN4370REM     initialize5000HTAB 5:? "Wait a Minute Please"5020DIM r(36, 6), d$(36), m$(14), h(6, 3), h$(6), t(12), t$(12), p(12), d(8)5100REM     connections5110FOR i=1 TO 365120 r(i, 1)=i+1: r(i, 2)=i-1: r(i, 3)=i+4: r(i, 4)=i-45130NEXT i5140FOR i=0 TO 24 STEP 125150FOR j=1 TO 9 STEP 4: r(i+j+3, 1)=0: r(i+j, 2)=0:NEXT5160FOR j=1 TO 4: r(i+j+8, 3)=0: r(i+j, 4)=0:NEXT5170NEXT i5180 r(1, 5)=16: r(7, 5)=15: r(32, 6)=13: r(13, 5)=32:*         ****"5750? "       ****         ****"5760? "       ****         ****"5770? "       ****         ****"5780? "     ********       ****"5790? "     ********       ****"5795IF ao=999 THEN POKE 17115, 240:END5800VTAB 22:GOTO 5000BZUD"5545DATA     "D-BZUD","M-BZUD","DLOSHMDRR"5550DATA      "RLZKK BZUD","QNBJX BZUD","RLDKKX BZUD","CQZFNM BZUD"5552DATA    "RMZJD BZUD","XDKKNV BZUD","RSQDZL AZMJ","RSHMJX OKZBD"5555DATA     "ENNC BZUD","EHMZK BZUD"5560DATA      "BNKNQDC BZUD","HBD BZUD","NODM OT5380FOR i=1 TO 8:READ s(i):NEXT5390 code=05395 c=0: zt=280005400READ a:IF a=256 THEN 54205410POKE zt+c, a: c=c+1:GOTO 54005420REM   5499RETURN5500DATA    21,1,22,2,22,1,23,2,18,1,19,2,16,3,20,4,11,1,12,25505DATA   7,1,8,2,7,4,3,3,2,15510DATA      "EAST","WEST","NORTH","SOUTH","UP","DOWN","KILL"5512DATA   "HELP","TAKE","DROP","INVENTORY","BANDAGE","LANTERN","READ"5520DATA      "KZMSDQM","VGDZSOHKD","VZSDQRZBJ","BNNJANNJ","KDZEKDS"5522DATA    "AZMCZFD","RVNQC","BNNJHD","ANCX NE H.S.","FHZMS BNQOtn$=tn$+c$4040NEXT i1:IF  NOT code THEN ? tn$4050RETURN4100REM     look in ownings4110 po=0:FOR i=1 TO lp-14120IF p(i)=tp THEN  po=i: i=lp-14130NEXT i4140RETURN4200REM     puzzle4210 rt=rt+14220IF rm=s(rt) THEN  rr=rr+14230IF rt<8 THEN RETURN4240IF rr=8 THEN 43104250? "An absolute darnesss covers you"4260? "and it feels as if something"4270? "is lifing you. For a moment"4280? "you are unconsious"4290 rt=1: rr=1: rm=14300RETURN4310? "You hear a strange sound, as if"4320? "something is beiKZBD","VNNCR"5562DATA    "VNNCR","VNNCR","VNNCR","VNNCR","VNNCR","VNNCR","VNNCR","VNNCR"5565DATA     "VNNCR","VNNCR"5570DATA     34,30,28,21,14,15,13,0,0,0,0,05580DATA     34,2,16,15,17,4,29,2,8,1,25,15590DATA     1,5,9,10,11,7,6,25600DATA     245,229,213,197,253,197,14,1,6,7,205,32,253,253,2255610DATA    193,209,225,241,201,256 5700REM    intro page5705POKE 17115, 19:TEXT:VTAB 85710? "     ********     ********"5720? "     ********     ********"5730? "       ****         ****"5740? "       *** r(35, 6)=18: r(18, 5)=355190FOR i=1 TO 15:READ rm:READ mv: r(rm, mv)=0:NEXT5200REM     init parameters5210 rm=36: po=1: lp=1: rl=0: lo=0: nw=0: rt=0: rr=05220 z$=CHR$(7)+CHR$(7): zz$=z$+z$+z$5300REM     fill arrays5310 code=-15320FOR i=1 TO 14:READ m$(i):NEXT5330FOR i=1 TO 12:READ t$:GOSUB 4000: t$(i)=tn$:NEXT5340FOR i=1 TO 6:READ t$:GOSUB 4000: h$(i)=tn$:NEXT5350FOR i=1 TO 36:READ t$:GOSUB 4000: d$(i)=tn$:NEXT5360FOR i=1 TO 12:READ t(i):NEXT5370FOR i=1 TO 6:READ h(i, 1), h(i, 3): h(i, 2)=1:NEXےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےplease send a SASE    to:     Gordon Meyer     DNS Software     PO Box 459     Roy, UT 84067     (801) 773-7766ur knowledge, in the public domain.  If you find a program that is not...please notify us immediately.     Before playing EVIL3 please use your word processor to  read the associated text file.     Both MOTHERLODE and LIGHTHOUSE are games that are in    many parts.  To use them type RUN MOTHERLODE and RUN         LIGHTHOUSE...both programs will load in the other files as   needed...therex	Eg them!     I have sent you copies of those files that I            could...you have selected some of my biggest files for your  returns.  I simply can not fit all of th*******************************'DO NOT STAMP' SoftwareVolume 900 - Adventures II*******************************     This collection of public domain programs is            distributed by 'DO NOT STAMP' Software (DNS).  All programs  run under Smartےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےfore, leave your media in the drive while      playing.     MOTHERLODE offers you the option of saving your game    for future play.  Please note that if you save your game     while playing part II you must re-load in while playing part II.  If you try and re-play a part I game in part II (or     vica-versa) you will confuse the ADAM to no end.     Happy Adventuring!  If you would like a catalog or more information about the many volumes of public domain software that are available for the Coleco ADAM ےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےBASIC V1.0 (tm) on the Coleco ADAM Computer   System (tm).     All programs in this collection are, to the best of our knowledge, in the public domain.  If you find a program that is not...please notify us immediately.     Before playing EVIL3 please use your word processor to  read the associated text file.     Both MOTHERLODE and LIGHTHOUSE are games that are in    many parts.  To use them type RUN MOTHERLODE and RUN         LIGHTHOUSE...both programs will load in the other files as   needed...there01973000002420>2 THEN 1301013020IF dn=2 THEN  dn=513022HOME:VTAB 5:HTAB 5:? "Input filename for game":VTAB 10:HTAB 5:INPUT flname$13030HOME13050VTAB 5:? "Insert TAPE or DISK":?:? "Hit Store/Get when ready!":GET a$13100IF a$<>CHR$(147) THEN HOME:HTAB 8:FLASH:? "ACTION ABORTED":NORMAL:GOSUB 3000:GOTO 4013110? d$; "open "; flname$; " d"; dn13115IF x$="loa" THEN GOTO 1400013120? d$; "write "; flname$13130? do:? ti:? ro:? op:? bo:? ke:? ba:? dr:? na$13135? q:? r:? t:? p    22    2222  222222"105REM     110FOR i=1 TO 9120READ ev$(i)130NEXT i140POKE 16953, 32150POKE 17215, 200:TEXT160HOME:VTAB 24170FOR j=1 TO 3180FOR i=1 TO 9190? " "; ev$(i)200NEXT i210FOR i=1 TO 8:?:NEXT i220FOR i=1 TO 14:?230NEXT i240NEXT j250POKE 17215, 104:TEXT260FOR i=1 TO 200:NEXT i270POKE 17059, 8:POKE 17115, 79280POKE 17215, 224:TEXT290VTAB 8300? "       MISSION: E.V.I.L."310?:? "       --- PART III ---"320?:?:? "      'GOOD AND6300889-1-1990081008110007131312001212120141516170021606650060-10322200222100010046000053000004000030091280000700070000090110000001000000700011000015000000140160008150000160000001719000018000001921000020000vt=6+ti: st$=b$(ti):GOSUB 40: ht=30: vt=6+ti: st$=STR$(b(ti)):GOSUB 407230NEXT ti7232? CHR$(4); "open lightscore"7240? CHR$(4); "w241:TEXT530TEXT: r=1:? "REM"540GOTO 1350550GOSUB 1490560 r=2:? "BYTE 'A'"570 z=aa:GOSUB 1510580 aa=z590GOTO 1350600POKE 17115, 19610TEXT: r=3:? "ENDLESS LOOP"620GOSUB 1480630VTAB 15:HTAB 0:? "***** ***"; 640GET a$644IF a$=CHR$(27) GOTO 1750646IF a$<>CHR$(134) GOTO 630650ON (INT(RND(i)*4+1)) GOTO 520, 1200, 1040, 930660POKE 17115, 244670TEXT: r=4:? "GOTO"680GOSUB 1470:VTAB 23:? "  ^   ^     ^"; 690VTAB 15:HTAB 0:? "Press Smart-Key: "; :GET k$695IF k$=CHR$(27) GOTO 1750700IF k$=CHR$(129) 2REM      MISSION: E.V.I.L.4REM      --- PART III --- 6REM      BY D.B.Jacksch8REM    10DIM ev$(9), rm(16, 3)15ONERR  GOTO 175020DATA       "222222  22  22  2222  22    "30DATA       "222222  22  22  2222  22    "40DATA       "22      22  22   22   22    " 50DATA       "2222    22  22   22   22    "60DATA       "2222    22  22   22   22    "   70DATA       "22      22  22   22   22    "  80DATA       "22      22  22   22   22    "90DATA       "222222   2222   2222  222222"100DATA       "22222213140FOR i=1 TO 19:? c$(i):NEXT i13150? d$; "close "; flname$:GOTO 4014000? d$; "read "; flname$14010INPUT ""; do:INPUT ""; ti:INPUT ""; ro:INPUT ""; op:INPUT ""; bo:INPUT ""; ke14020INPUT ""; ba:INPUT ""; dr:INPUT ""; na$:INPUT ""; q:INPUT ""; r:INPUT ""; t14025INPUT ""; p14030FOR i=1 TO 19:INPUT ""; c$(i):NEXT i14040? d$; "close "; flname$14050FOR i=1 TO 14:IF c$(i)<>"" THEN  pv$(i)="..........": va(i)=0: h=114060NEXT i14070IF c$(16)<>"" THEN  di(q, r, t)=014080GOTO 40 1. Data Drive 1":?:? "   E.V.I.L.'"330?:?:?:HTAB 13:? "by DBJ"340FOR i=1 TO 2000:NEXT i350 m=PEEK(64885)360VTAB 23:? "  * Press any key to begin *"370 k=PEEK(64885): r=r-1:IF k=m GOTO 350380 r=RND(r)390POKE 17059, 0400POKE 16953, 95410TEXT420REM     430REM       MAIN PROGRAM440REM    450FOR i=1 TO 16460FOR j=0 TO 3470READ rm(i, j)480NEXT j, i490 a=INT(RND(1)*30): b=INT(RND(1)*40)500 c=INT(RND(1)*30): n=INT(RND(1)*200)510POKE 17059, 13:POKE 17067, 1520POKE 17115, rite lightscore"7250FOR i=1 TO 57252? b(i)7254? b$(i)7256NEXT i7260HTAB 1:? CHR$(4); "CLOSE lightscore"7265? "     PRESS <Y> TO REPLAY"7268ONERR  GOTO 99997270 bl=17280 x=60: y=23: z=347290HPLOT x, y TO x, z TO x+1, z: x=x+1:HPLOT x, z TO x, y TO x+1, y: x=x+17300IF x>70 THEN  bl=bl+1:IF bl/2=INT(bl/2) THEN HCOLOR =4:GOTO 72807310IF x>70 THEN HCOLOR =8:FOR m=1 TO 100:NEXT m:GOTO 72807315IF PEEK(64885)=89 THEN CLEAR:RUN7320GOTO 72909000CLRERR:TEXT:VTAB 5:? "ACCESS ERROR--PLEASE CHECK":? "SYSTEGOTO 740710IF k$=CHR$(130) GOTO 1090720IF k$=CHR$(131) GOTO 1200730GOTO 690740GOSUB 1490750 r=5:? "DATA 'B'"760?:? "SET BYTE 'B' TO "; b770GOTO 1350780GOSUB 1500790 r=6:? "GOTO"800GOSUB 1470:VTAB 23:? "  ^   ^     ^"; 810VTAB 15:HTAB 0:? "Press Smart-Key: "; :GET k$815IF k$=CHR$(27) GOTO 1750820IF k$=CHR$(129) GOTO 520830IF k$=CHR$(130) GOTO 890840IF k$=CHR$(131) GOTO 1270850GOTO 810860POKE 17115, 26870TEXT: r=7:? "REM"880GOTO 1350890GOSUB 1490900 r=8:? "DATA 'C'"910?:? "SET BYTE 'C' T240:POKE 17047, 551590TEXT:? "FATAL SYSTEM ERROR"1600FOR i=1 TO 3000:NEXT i:TEXT1610POKE 17047, 0:POKE 17067, 62:TEXT1620? "  NEWS FLASH ** NEWS FLASH"1630POKE 17180, 200:TEXT1640VTAB 2:? "E.V.I.L., Inc. has gone":? "bankrupt.  The company"1650? "liquidated all its assets,":? "and bought Coleco Adam"1660? "stocks, in a mad Wall-Street":? "binge, yesterday.  The head":? "of E.V.I.L., Tom Smodloy,"1670? "blames his financial blunder":? "on 'computer error'.  He"1680? "claims, 'There must have been":1140GOSUB 15001150 r=12:? "ENDLESS LOOP"1160GOSUB 14801170VTAB 15:HTAB 0:? "***** ***"; 1180GET a$1184IF a$=CHR$(27) GOTO 17501186IF a$<>CHR$(134) GOTO 6301190ON (INT(RND(i)*4+1)) GOTO 740, 860, 1090, 13001200POKE 17115, 2441210TEXT: r=13:? "REM"1220GOTO 13501230GOSUB 14901240 r=14:? "DATA 'A'"1250? "SET BYTE 'A' TO "; a1260GOTO 13501270POKE 17115, 181280TEXT: r=15:? "REM"1290GOTO 13501300GOSUB 14901310 r=16:? "BYTE 'B'"1320 z=bb:GOSUB 15101330 bb=z1340GOTO 13501350GOSUB 14601360VTAB0INVERSE:? " SEE YOU SOON...":NORMAL:?1780END1790DATA        1,1,1,5,1,2,2,6,3,3,3,3,4,4,4,4 1800DATA        5,1,6,9,6,6,6,6,2,4,7,11,7,8,16,12  1810DATA        9,5,9,13,10,7,10,10,10,6,11,16,12,12,12,12   1820DATA        1,9,15,13,13,10,11,3,15,15,16,15,15,16,8,4 s assets,":? "and bought Coleco Adam"1660? "stocks, in a mad Wall-Street":? "binge, yesterday.  The head":? "of E.V.I.L., Tom Smodloy,"1670? "blames his financial blunder":? "on 'computer error'.  He"1680? "claims, 'There must have been":  III   IV   V   VI":RETURN1480VTAB 23:HTAB 26:? "JUMP":GOSUB 1470:RETURN1490POKE 17115, 79:TEXT:RETURN1500POKE 17115, 246:TEXT:RETURN1510VTAB 3:? "BYTE IS SET AT: "; z1518ONERR  GOTO 15501520?:? "CHANGE VALUE? (y/n) "; :GET a$:IF a$="y" GOTO 15501528IF a$=CHR$(27) GOTO 17501530VTAB 5:HTAB 0:? "****** ****** *****"; 1540GOTO 13501550VTAB 6:HTAB 0:INPUT "NEW VALUE: "; z: z=INT(z)1552VTAB 3:HTAB 0:?:?:?1555ONERR  GOTO 17501560RETURN1570FOR i=1 TO 1000:NEXT i:RETURN1580POKE 17059, 0:POKE 17115, O "; c920GOTO 1350930GOSUB 1500940 r=9:? "ACCUMULATOR"950?:?:? "PLEASE STAND BY..."960? "INITIALIZING BYTES."970GOSUB 1570980?:?:? "BYTE 'A' = 0":GOSUB 1570990? "BYTE 'B' = 0":GOSUB 15701000? "BYTE 'C' = 0":GOSUB 15701010VTAB 4:?:?1020 aa=0: bb=0: cc=01030GOTO 13501040GOSUB 14901050 r=10:? "IF/THEN"1060?:? "IF VALUE OF BYTE 'B'="; n; ",":? "THEN 'DOWN' EXIT IS OPEN"1070IF bb=n THEN  rm(10, 3)=141080GOTO 13501090GOSUB 14901100 r=11:? "BYTE 'C'"1110 z=cc:GOSUB 15101120 cc=z1130GOTO 1350? "a glitch in my finance"1690? "program.'"1700? "E.V.I.L. employees are now":? "moving out of their office-"1710? "building, which will become":? "the new urban youth center."1720? "Mr. Smodloy has donated the":? "company's computer, said to"1730? "be almost human, to the":? "Mecham Home for the Elderly."1740? "Said Mr. Smodloy, 'It plays a":? "great game of chess.' "; 1745GET a$1750POKE 16953, 95:POKE 17215, 2241760POKE 17059, 0:POKE 17115, 240:POKE 16954, 32:POKE 17067, 62:POKE 17180, 0:TEXT177 15:HTAB 0:? "Arrow Key: "; 1370GET a$1375IF a$=CHR$(27) GOTO 17501380IF a$=CHR$(163) THEN  d=0:? "Left":GOTO 14301390IF a$=CHR$(160) THEN  d=1:? "Up":GOTO 14301400IF a$=CHR$(161) THEN  d=2:? "Right":GOTO 14301410IF a$=CHR$(162) THEN  d=3:? "Down":GOTO 14301420GOTO 13501430FOR i=1 TO 400:NEXT i1440IF (aa=a) AND (bb=b) AND (cc=c) GOTO 15801450ON (rm(r, d)) GOTO 520, 550, 600, 660, 740, 780, 860, 890, 930, 1040, 1090, 1140, 1200, 1230, 1270, 13001460VTAB 23:HTAB 26:? "****"1470VTAB 21:? "  I   II ےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےے, 'B', & 'C'"-  These rooms contain the values   to be set in BYTE 'A', 'B', & 'C'.** "BYTE 'A', 'B', & 'C'"-  When all three are set correctly (to the number values found in "DATA") the mission will be   accomplished.** "IF/THEN"-  While a certain condition exists (mentioned   in the room), a "door" will open, to let you move "Down",    revealing one or more hidden rooms.** "ACCUMULATOR"-  Each time this room is entered, all 3     Bytes are reset to "0". ** "ENDLESS LOOP"-  The Arrow Keys won't work inx	Ecome to the third part of the E.V.I.L. trilogy. We're all counting on you.--- The story so far:                Electronic Video Intelligence Laboratories (E.V.I.L.),   MISSION: E.V.I.L. PART III -- GOOD AND E.V.I.L.        Greetings, Hacker!    Welcome to the third part of the E.V.I.L. trilogy. We're all counting on you.--- The story so far:                Electronic Video Intelligence Laboratories (E.V.I.L.), will stay the same. To quit, press the <ESCAPE/WP> key, and the program will end.PROGRAMMER'S NOTE:** Make a map as you go.  Remember that this is a computer   circuit, so the routes can criss-cross, and jump around.     Some exits will lead you right back into the same room! Many rooms look alike, and in some cases, the only difference is  the screen color.** The DATA and IF/THEN values will be different, each time  the program is run.** ADAM may behave a little strangely while this program is  runnu are still out there, this message is  for you:    Since MCC-E2 can't be destroyed, why not re-program it?  We've found that by setting just three bytes (Bytes 'A', 'B',and 'C'), MCC-E2 will erase most of its memory, and run only "Demo" programs.  The numbers to set the bytes, will be      found in MCC-E2's own memory.  Each unit of memory in MCC-E2 can be called a "room." Here are some rooms you may          encounter:  ** "REM"-  These rooms are "safe", and mostly ignored by the computer.** "DATA 'A'ےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےے this room. Perhaps you're stuck forever!** "GOTO"-  You get a choice of 1 of 3 Smart-Keys, each      leading to a different room.To move to a new room, press an Arrow Key (the cursor        control keys, lower right-hand corner of the keyboard).      However, the arrow keys won't work in "GOTO" or "ENDLESS     LOOP" rooms.Each time you enter a "BYTE" room, you will get one chance   to change the value of the byte.  Input "y" (Lowercase only),then the number, to change it.  If you press "n", the value    bent on gaining control of all the world's computer systems, built MCC-E1.  This computer was short-circuited by a hacker who is known as Fig-Leaf.  E.V.I.L. constructed a new Master Control Computer (MCC-E2), and added Artificial Intelligence and special protection circuits.  Agent Fig-Leaf entered     MCC-E2's memory circuits, and discovered a diabolical plan,  Which E.V.I.L. had already begun.  Agent Fig-Leaf's          information helped us foil the plan.                        Agent Fig-leaf, if yoing.  Expect the unexpected.  I would not, however,      suggest listing the program, since I did something sinister  to a couple of lines.**** Send any praise, gripes, wisecracks, or large boxes of  untraceable currency to:                                                   David Jacksch                      790 W. 600 N.                      Clearfield, UT  84015                                            PLEASE enclose a STAMPED, self-addressed envelope, if you    expect any answer., the value 00, 2700150GOTO 601000REM    instructions1005HOME1010VTAB 10:? TAB(3); "** HPLOT DRAWING SYSTEM **"1020VTAB 12:? "Do you want instructions? (y/n) ":GET k$1030IF k$="n" OR k$="N" THEN RETURN1040HOME:? TAB(5); "This is a drawing system to "; 1050? "create drawings using HPLOT "; 1060? "commands.  The joystick is used "; 1070? "to move the square cursor around the screen.  Once you "; 1080? "have placed the cursor where you want to draw, press either side "; 1090? "button on the controller.  If youےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےے automatically "; 1160? "return you to the drawing screen, where you will be able to start where you left off before."; 1170?:?:? "Press any key to continue.  ":GET k$1180HOME:? TAB(5); "To stop the program, press Key III when the menu is displayed."; 1190? "  This will print out a list of the HPLOT coordinates and colors used, so that you "; 1200? "can recreate any drawing that you have made.  Control-C will always abort this program, "; 1210? "and pressing the CLEAR key will clear the screen and all5TEXT10GOSUB 100020REM      ** HPLOT DRAWING SYSTEM**30REM      by John Mesiavech40REM      program for Coleco SmartBASIC V1.050GOSUB 8000:REM    initialization55SCALE =1:HCOLOR =3:DRAW 1 AT x, y60VTAB 21:? "Move cursor to starting point."70VTAB 22:? "Move cursor w/joystick"75VTAB 23:? "Press side button to draw."80 d=PDL(5)90IF d=6 THEN  d=d-1100IF d=8 OR d=9 THEN  d=d-2110IF d=12 THEN  d=d-4120 s1=PDL(7): s2=PDL(9)130IF s1 OR s2 THEN 2800140ON d GOSUB 2000, 2100, 2200, 2300, 2400, 2500, 26 will stay the same. To quit, press the <ESCAPE/WP> key, and the program will end.PROGRAMMER'S NOTE:** Make a map as you go.  Remember that this is a computer   circuit, so the routes can criss-cross, and jump around.     Some exits will lead you right back into the same room! Many rooms look alike, and in some cases, the only difference is  the screen color.** The DATA and IF/THEN values will be different, each time  the program is run.** ADAM may behave a little strangely while this program is  runn want to draw your drawing in white, "; 1100? "press Key I to begin drawing.  Move the cursor as before, and it will leave a white line"; 1110? " behind it.  To change color or to stop drawing, press the side buttons."1120?:?:? "Press any key to continue.":GET k$1130HOME:? TAB(5); "This will return you to the menu, where you can change the color by "; 1140? " pressing Key II.  This will change the screen to a color menu.  Choose the color you want "; 1150? " by inputting the color's number.  This willےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےے coordinates from memory.  "; 1220? "Pressing the PRINT key when the menu is displayed is the same as pressing Key III."1230?:?:? "Press <e> to stop now, or any other key to start drawing.  ":GET k$1240IF k$="e" OR k$="E" THEN HOME:? TAB(8); "HAVE A GOOD ONE!!":END1250RETURN2000 x1=x: y1=y-3:IF y1<=3 THEN  y1=y2010XDRAW 1 AT x, y:HCOLOR =6:DRAW 1 AT x1, y1: x=x1: y=y12020RETURN2100 x1=x+3: y1=y:IF x1>=250 THEN  x1=x2110XDRAW 1 AT x, y:HCOLOR =6:DRAW 1 AT x1, y1: x=x1: y=y12120RETURN2200 x1=x+3: yAW 1 AT x1, y1: x=x1: y=y13340RETURN3400 x1=x: y1=y+3:IF y1>=147 THEN  y1=y3410XDRAW 1 AT x, y:HCOLOR =col(subscript):HPLOT x, y TO x1, y13420HCOLOR =6:DRAW 1 AT x1, y1: x=x1: y=y13430RETURN3500 x1=x+3: y1=y+3:IF x1>=247 THEN  x1=x3510IF y1>=147 THEN  y1=y3520XDRAW 1 AT x, y:HCOLOR =col(subscript):HPLOT x, y TO x1, y13530HCOLOR =6:DRAW 1 AT x1, y1: x=x1: y=y13540RETURN3600 x1=x-3: y1=y:IF x1<=5 THEN  x1=x3610XDRAW 1 AT x, y:HCOLOR =col(subscript):HPLOT x, y TO x1, y13620HCOLOR =6:DRAW 1 AT x1, 2600 x1=x-3: y1=y-3:IF x1<=3 THEN  x1=x2610IF y1<=3 THEN  y1=y2620XDRAW 1 AT x, y:HCOLOR =6:SCALE =1:DRAW 1 AT x1, y1: x=x1: y=y12630RETURN2700 x1=x-3: y1=y+3:IF x1<=3 THEN  x1=x2710IF y1>=144 THEN  y1=y2720XDRAW 1 AT x, y:SCALE =1:HCOLOR =6:DRAW 1 AT x1, y1: x=x1: y=y12730RETURN2800REM     menu routine2810HOME:VTAB 21:? "  I      II     III"2820VTAB 22:? "Enter  Color  Print"2830GET k$:IF k$=CHR$(129) OR k$=CHR$(137) THEN 30002840IF k$=CHR$(130) OR k$=CHR$(138) THEN 40002850IF k$=CHR$(131) ORaser color (Black)"4030? TAB(3); "1 = Green"4040? TAB(3); "2 = Violet"4050? TAB(3); "3 = White"4060? TAB(3); "4 = Orange"4070? TAB(3); "5 = Blue"4080? TAB(3); "6 = Brown"4090? TAB(3); "7 = Dark Blue"4100? TAB(3); "8 = Gray"4110? TAB(3); "9 = Pink"4120? TAB(2); "10 = Dark Green"4130? TAB(2); "11 = Yellow"4140? TAB(2); "12 = Aqua"4150? TAB(2); "13 = Magenta"4160?:INPUT "Which color do you want? "; c4170IF c<0 OR c>13 THEN ? "I don't know that color.  Press any key to see list again.":GET k$:GOTB(2); "Press side button for menu."3080GOTO 30103100 x1=x: y1=y-3:IF y1<=10 THEN  y1=y3110XDRAW 1 AT x, y:HCOLOR =col(subscript):HPLOT x, y TO x1, y13120HCOLOR =6:DRAW 1 AT x1, y1: x=x1: y=y13130RETURN3200 x1=x+3: y1=y:IF x1>=247 THEN  x1=x3210XDRAW 1 AT x, y:HCOLOR =col(subscript):HPLOT x, y TO x1, y13220HCOLOR =6:DRAW 1 AT x1, y1: x=x1: y=y13230RETURN3300 x1=x+3: y1=y-3:IF x1>=247 THEN  x1=x3310IF y1<=10 THEN  y1=y3320XDRAW 1 AT x, y:HCOLOR =col(subscript):HPLOT x, y TO x1, y13330HCOLOR =6:DR1=y-3:IF x1>=250 THEN  x1=x2210IF y1<=3 THEN  y1=y2220XDRAW 1 AT x, y:SCALE =1:HCOLOR =6:DRAW 1 AT x1, y1: x=x1: y=y12230RETURN2300 x1=x: y1=y+3:IF y>=144 THEN  y1=y2310XDRAW 1 AT x, y:HCOLOR =6:SCALE =1:DRAW 1 AT x1, y1: x=x1: y=y12320RETURN2400 x1=x+3: y1=y+3:IF x1>=250 THEN  x1=x2410IF y1>=144 THEN  y1=y2420XDRAW 1 AT x, y:SCALE =1:HCOLOR =6:DRAW 1 AT x1, y1: x=x1: y=y12430RETURN2500 x1=x-3: y1=y:IF x1<=3 THEN  x1=x2510XDRAW 1 AT x, y:HCOLOR =6:SCALE =1:DRAW 1 AT x1, y1: y=y1: x=x12520RETURNy1: x=x1: y=y13630RETURN3700 x1=x-3: y1=y-3:IF x1<=5 THEN  x1=x3710IF y1<=10 THEN  y1=y3720XDRAW 1 AT x, y:HCOLOR =col(subscript):HPLOT x, y TO x1, y13730HCOLOR =6:DRAW 1 AT x1, y1: x=x1: y=y13740RETURN3800 x1=x-3: y1=y+3:IF x1<=5 THEN  x1=x3810IF y1>=147 THEN  y1=y3820XDRAW 1 AT x, y:HCOLOR =col(subscript):HPLOT x, y TO x1, y13830HCOLOR =6:DRAW 1 AT x1, y1: x=x1: y=y13840RETURN4000REM    color subroutine4010TEXT:? TAB(3); "The number codes of the colors are as follows:"4020?:? TAB(3); "0 = er k$=CHR$(139) OR k$=CHR$(149) OR k$=CHR$(157) THEN 45002860IF k$=CHR$(150) OR k$=CHR$(158) THEN  subscript=1: xc=0:GOSUB 8030:GOTO 552870END3000REM    drawing routine3002GOSUB 80303005 d2=PDL(5)3010 s1=PDL(7): s2=PDL(9): d=PDL(5)3015IF d<d2 OR d>d2 THEN  subscript=subscript+1: x(subscript)=x: y(subscript)=y: d2=d: xc=xc+13020IF s1 OR s2 THEN 28003030IF d=6 THEN  d=d-13040IF d=8 OR d=9 THEN  d=d-23050IF d=12 THEN  d=d-43060ON d GOSUB 3100, 3200, 3300, 3400, 3500, 3600, 3700, 38003070VTAB 22:? TAO 40004180IF c=4 OR c=5 THEN  c=c+1:FOR x3=subscript TO max: col(x3)=c:NEXT x3:GOTO 30004190IF c>5 THEN  c=c+2:FOR x3=subscript TO max: col(x3)=c:NEXT x3:GOTO 30004200IF c<4 THEN FOR x3=subscript TO max: col(x3)=c:NEXT x3:GOTO 30004500REM    printout subroutine4510TEXT:VTAB 10:? TAB(3); "Do you have paper in printer?  If so, press any key."4520GET k$4530PR #14540FOR p=2 TO xc4550? "HPLOT "; x(p); ","; y(p); " TO "; x(p+1); ","; y(p+1); "     HCOLOR = "; col(p-1)4560NEXT p4570PR #04580HOME:? TAB(ےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےے 150 STEP 108080HPLOT 10, y3 TO 12, y38090NEXT y38100HPLOT 5, 1 TO 255, 1 TO 255, 153 TO 5, 153 TO 5, 18120IF  NOT xc THEN RETURN8130FOR d1=2 TO xc8140HCOLOR =col(d1-1)8150HPLOT x(d1), y(d1) TO x(d1+1), y(d1+1)8160NEXT d18170RETURNM    printout subroutine4510TEXT:VTAB 10:? TAB(3); "Do you have paper in printer?  If so, press any key."4520GET k$4530PR #14540FOR p=2 TO xc4550? "HPLOT "; x(p); ","; y(p); " TO "; x(p+1); ","; y(p+1); "     HCOLOR = "; col(p-1)4560NEXT p4570PR #04580HOME:? TAB(f1$220? d$; "open "; f2$230? d$; "read "; f1$240? d$; "write "; f2$250 ln=inc: li=1260 c$=STR$(ln)270GOSUB 940:REM           get original line number 280IF n<>no%(li) THEN 510290 b$=""300 b$=b$+a$310IF a$<>cr$ THEN GET a$:GOTO 300320 i=1330IF LEFT$(b$, 6)="GOSUB " THEN 520340IF LEFT$(b$, 5)="GOTO " THEN 530350IF LEFT$(b$, 12)="ONERR  GOTO " THEN 540360IF LEFT$(b$, 3)="ON " GOTO 570370IF LEFT$(b$, 3)="IF " GOTO 660380IF LEFT$(b$, 4)="REM " THEN 820390 a$=MID$(b$, i, 1)400 c$=c$+a$410IF a$ےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےے3); " Press <c> to continue, <s> to start over, or <e> to end."4590GET k$4600IF k$="c" OR k$="C" THEN GOSUB 8030:GOTO 28004610IF k$="s" OR k$="S" THEN  subscript=1: xc=0:GOSUB 8030:GOTO 554620IF k$="e" OR k$="E" THEN HOME:? TAB(8); "HAVE A GOOD ONE!":END8000REM      initialization8010 max=300: x=120: y=75: subscript=18020DIM x(max), y(max), xc(1), col(max)8022FOR s=1 TO max8025 col(s)=38027NEXT s8030HGR8035HCOLOR =38040FOR x5=1 TO 250 STEP 108050HPLOT x5, 3 TO x5, 48060NEXT x58070FOR y3=1 TO10REM    RENUM  Program to Renumber a BASIC Program   3/6/8420 d$=CHR$(4)30? d$; "mon c"40DIM no%(1000)50 cr$=CHR$(13):REM          <return>60 quote$=CHR$(34):REM          "70 nl=080INPUT "CURRENT FILE NAME: "; f1$90INPUT " OUTPUT FILE NAME: "; f2$100INPUT "DESIRED INCREMENT: "; inc110? d$; "open "; f1$120? d$; "read "; f1$130ONERR  GOTO 180140GOSUB 880:REM           get next line number150IF a$=cr$ THEN 140160GET a$170GOTO 150180CLRERR190 nl=nl-1200? d$; "close "; f1$210? d$; "open "; 3); " Press <c> to continue, <s> to start over, or <e> to end."4590GET k$4600IF k$="c" OR k$="C" THEN GOSUB 8030:GOTO 28004610IF k$="s" OR k$="S" THEN  subscript=1: xc=0:GOSUB 8030:GOTO 554620IF k$="e" OR k$="E" THEN HOME:? TAB(8); "HAVE A GOOD ONE!":END8000REM      initialization8010 max=300: x=120: y=75: subscript=18020DIM x(max), y(max), xc(1), col(max)8022FOR s=1 TO max8025 col(s)=38027NEXT s8030HGR8035HCOLOR =38040FOR x5=1 TO 250 STEP 108050HPLOT x5, 3 TO x5, 48060NEXT x58070FOR y3=1 TO=quote$ THEN GOSUB 760420IF a$=":" THEN  b$=MID$(b$, i+1):GOTO 320430 i=i+1:IF i<=LEN(b$) THEN 390440? c$; 450 ln=ln+inc: li=li+1460IF li<=nl THEN 260470? d$; "close "; f1$480? d$; "close "; f2$490IF ef THEN ? "ERROR OCCURRED"500END510 ef=1:GOTO 470520 c$=c$+"GOSUB ": i=i+6:GOTO 550530 c$=c$+"GOTO ": i=i+5:GOTO 550540 c$=c$+"ONERR  GOTO ": i=i+12550GOSUB 1000:REM           insert new line number  560GOTO 400570 c$=c$+"ON ": i=i+3580 a$=MID$(b$, i, 1)590 c$=c$+a$600IF a$=quote$ THEN GOSUB ےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےے800IF a$<>quote$ THEN 770810RETURN820REM         handle remarks ( don't look for '"' and ':')830 a$=MID$(b$, i, 1)840 c$=c$+a$850 i=i+1860IF a$<>cr$ THEN 830870GOTO 440880REM           get line number from next line890 nl=nl+1900GET a$910IF a$<"0" OR a$>"9" THEN RETURN920 no%(nl)=10*no%(nl)+VAL(a$)930GOTO 900940REM          get line number950 n=0960GET a$970IF a$<"0" OR a$>"9" THEN RETURN980 n=10*n+VAL(a$)990GOTO 9601000REM          remove old number and insert new1010 n=01020 a$=MID$(195IF l=0 THEN  l=39:GOSUB 400196IF l<39 THEN COLOR =0:PLOT b, l: l=l-1:COLOR =7:PLOT b, l197COLOR =0:PLOT x, y200VTAB 1:? "Score "; sc210NEXT x400FOR m=0 TO 100410? "Missed  "; :NEXT m412HOME415COLOR =0:PLOT x, y420GOTO 210500IF l<39 THEN RETURN505 b=g: l=l-1510? CHR$(7):COLOR =7520PLOT b, l:RETURN600IF g=1 THEN RETURN610COLOR =0:PLOT g, u620 g=g-1:COLOR =7:PLOT g, u630RETURN700IF g=38 THEN RETURN710COLOR =0:PLOT g, u720 g=g+1:COLOR =7:PLOT g, u730RETURN800? CHR$(7)805 l=39810FOR m=ےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےے760610 i=i+1620IF RIGHT$(c$, 6)<>" GOTO " THEN 580630GOSUB 1000:REM          insert new line number  640IF a$="," THEN  c$=c$+", ": i=i+2:GOTO 630650GOTO 400660 c$=c$+"IF ": i=i+3670 a$=MID$(b$, i, 1)680 c$=c$+a$690IF a$=quote$ THEN GOSUB 760700 i=i+1710IF RIGHT$(c$, 6)=" GOTO " THEN 550720IF RIGHT$(c$, 6)<>" THEN " THEN 670730 a$=MID$(b$, i, 1)740IF a$<"0" OR a$>"9" THEN  b$=MID$(b$, i):GOTO 320750GOTO 550760REM          handle strings in quotes770 i=i+1780 a$=MID$(b$, i, 1)790 c$=c$+a$10 g=19: u=39: l=3911 sc=015TEXT16GR100FOR z=1 TO 21:IF z=21 THEN GOTO 1000110 y=INT(5+25*RND(1))120FOR x=0 TO 39:COLOR =11130PLOT x, y131IF x=39 THEN COLOR =0:PLOT x, y:NEXT z134IF l<4 THEN COLOR =0:PLOT b, l: l=39:GOTO 400135IF l<39 THEN COLOR =0:PLOT b, l: l=l-1:COLOR =7:PLOT b, l136IF x=b AND y=l THEN GOTO 800137IF SCRN(b, (l-1))<>11 THEN GOTO 140138GOTO 800140COLOR =7:PLOT g, u150LET fi=PDL(7)160LET gu=PDL(5)170IF fi=1 THEN GOSUB 500180IF gu=8 THEN GOSUB 600190IF gu=2 THEN GOSUB 700b$, i, 1)1030IF a$<"0" OR a$>"9" THEN 10701040 n=10*n+VAL(a$)1050 i=i+11060GOTO 10201070FOR j=1 TO nl1080IF n=no%(j) THEN 11201090NEXT j1100REM        error--undefined line no.1110 ef=1:RETURN1120 c$=c$+STR$(j*inc)1130RETURNN GOSUB 760700 i=i+1710IF RIGHT$(c$, 6)=" GOTO " THEN 550720IF RIGHT$(c$, 6)<>" THEN " THEN 670730 a$=MID$(b$, i, 1)740IF a$<"0" OR a$>"9" THEN  b$=MID$(b$, i):GOTO 320750GOTO 550760REM          handle strings in quotes770 i=i+1780 a$=MID$(b$, i, 1)790 c$=c$+a$1 TO 100:? "Hit  "; :NEXT m815HOME820 sc=sc+10825COLOR =0:PLOT x, y826COLOR =0:VLIN 0, 39 AT x827 l=39830NEXT z1000? "Game over,your score was "; sc1005IF sc>hs THEN  hs=sc1015? "High score "; hs1020? "Press * to play again "1030LET c=PDL(13)1040IF c=10 THEN GOTO 101050GOTO 1030eof6IF x=b AND y=l THEN GOTO 800137IF SCRN(b, (l-1))<>11 THEN GOTO 140138GOTO 800140COLOR =7:PLOT g, u150LET fi=PDL(7)160LET gu=PDL(5)170IF fi=1 THEN GOSUB 500180IF gu=8 THEN GOSUB 600190IF gu=2 THEN GOSUB 700ےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےے195IF l=0 THEN  l=39:GOSUB 400196IF l<39 THEN COLOR =0:PLOT b, l: l=l-1:COLOR =7:PLOT b, l197COLOR =0:PLOT x, y200VTAB 1:? "Score "; sc210NEXT x400FOR m=0 TO 100410? "Missed  "; :NEXT m412HOME415COLOR =0:PLOT x, y420GOTO 210500IF l<39 THEN RETURN505 b=g: l=l-1510? CHR$(7):COLOR =7520PLOT b, l:RETURN600IF g=1 THEN RETURN610COLOR =0:PLOT g, u620 g=g-1:COLOR =7:PLOT g, u630RETURN700IF g=38 THEN RETURN710COLOR =0:PLOT g, u720 g=g+1:COLOR =7:PLOT g, u730RETURN800? CHR$(7)805 l=39810FOR m=ےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےے